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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
001«» 
0015 
0016 
0017 



NAM PTP003 10154 COPYRIGHT CONTROL DATA CORP 1974 •••00001 

*»»«**«.******«*«******* ************ ***********+***.*****. ****** ****** ****** v* 00002 

* **»*00003 
********** REVISION RECORD ***************** ♦•♦•00004 

* ♦♦♦♦00005 
WHAT DONE , WHY , AND WHO DID IT ♦♦♦•00006 

♦♦♦•00007 
SYSTEM RELEASED ♦♦♦•00008 

♦♦♦♦00009 

CHANGED SECTION ID CHARACTERS TO 3E VALID ♦•♦00010 

WHEN TESTING 5,70R 3 LEVEL TAPE. CHANGED START ♦♦♦00011 

OF TAPE. END OF TAPE* 10 BLOCKS TO REFLECT •♦♦00012 

5,7 OR 8 LEVEL TESTING EJW ♦♦•00013 

♦♦♦00014 
ADDED VALIDATION STATUS BIT CHECKING EJW ♦♦♦00015 

* ♦•♦00016 

*** ************ **************** **** ******** **************** ******** ********Q[) gi J 



• MOTAYP VERSION 

♦ 032074 V 3.1 

• 062074 

* 

* 
* 

♦ 062B74 



( ) 



0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
00<f0 

0041 

0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 



**************************************** 



1723 FUNCTIONS 



BITS 


HEX 




00 


0001 


CLEAR EQUIPMENT 


01 


0002 


CLEAR INTERRUPTS 


02 


01+ 


DATA INT. REQUEST 


03 


0008 


NOT USED 


04 


0010 


INT. ON ALARM 


05 


0020 


START MOTION 


06 


OOtfO 


STOP MOTION 


07 






TO 




NOT USED 


15 








***** 




1723 


STATUS 


BITS 


HEX 




00 


0001 


READY 


01 


0002 


BUSY 


02 


000(f 


INTERRUPT 


03 


0008 


DATA REAOY 


0«» 


0010 


NOT USED 


05 


0020 


ALARM 


06 


0040 


VALIDATION ERROR 


07 


0030 


PROTECTED 


08 


0100 


NO PUNCH 


09 


0200 


TAPE BREAK 


10 


O*»00 


POWEP ON 



00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00031* 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
•••00045 
00046 
00047 
00048 
00049 
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0050 
0C51 
0052 
0053 
005** 
0055 



11 
12 
TO 
15 



0*00 TAPE SUPPLY LOW 
NOT USED 



»»♦»**»*»******♦♦**»»*****»***»»*♦»♦»»»» 



00050 
00051 
00052 
00053 
0005i» 
00055 
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0057 



ERROR COOEStHEXIOECIMAD 



00057 





0059 




0050 


r~\ 


0061 


u 


0052 


V *s 


0063 




006** 


/^~> 


0065 


( ) 


0066 


v_y 


0067 




0068 




0069 


O 


0070 


\J 


0071 




0072 




0073 


o 


007t» 




0075 




0076 




0077 




0078 


. 


0079 


^~s 


0080 




031 





0082 


u 


0083 
008^ 




0085 




0086 


r~\ 


0087 


\J ■ 


0088 




0089 




0090 


o 


0091 


0092 


— 


0093 




009«* 


/"-> 


0095 


( ) 


0096 


v_y 


0097 




0098 




0099 


o 


0100 


vJ 


0101 




0102 




010 3 


/-~\ 


01Q*f 


O 


0105 




0106 



ERROR 6 
ERROR 7 
ERROR 8 
ERROR 9 
ERROR A 
FRROR B 
ERROR C 



EXTERNAL REJECT ON 

INTERNAL REJECT ON 

EXTERNAL REJECT ON 

INTERNAL REJECT ON 



♦ ERROR 1 - EXTERNAL REJECT ON A CLEAR EQUIPMENT FUNCTION. CHECK 
♦EQUIPMENT AODRESS FO<? CORRECT CODE. 

♦ ERROR 2 - INTERNAL REJECT ON AN EQUIPMENT CLEAR FUNCTION. SEE 
•ERROR 1. 

•ERROR 3 - EXTERNAL REJECT ON STATUS. SEE ERROR 1. 
•ERROR if - INTERNAL REJECT ON STATUS. SEE ERROR 1. 

♦ ERROR 5 - AFTER AN EQUIPMENT CLEAR, ONLY POWER ON ANO READY STATUS 
•OTTS SHOULO OF SET. 

A OATA INTERRUPT REQUEST FUNCTION. 

A OATA INTERRUPT REQUEST FUNCTION. 

A START MOTION FUNCTION. 

A START MOTION FUNCTION. 
EXTERNAL REJECT ON STATUS AFTER OUTPUTTING A START MOTION. 
INTERNAL REJECT ON STATUS AFTER OUTPUTTING A START MOTION. 
AFTER OUTPUTTING AN EQUIPMENT CLEAR AND START MOTION FUNCTIO 

♦ ONLY POWER ON, 8USY, ANO PEADY STATUS BITS SHOULO HAVE BEEN 
♦SET. CHECK STATUS. 

♦ ON ERRORS 1 TO C 

♦ THE TEST WILL REPEAT IN THE SAME LOOP UNTIL THE ERROR CONDITION IS 

♦ CORRECTED. OM ERRORS 5 AND C STATUS BITS, TAPE LOW, ALARM AND PROTECT 
♦ARE NOT CHECKED. THE CHECKING OF THESE BITS IS DONE IN THE PUNCH FRAME 

♦ DRIVER (SEE LISTING TAG PPTI . 

♦ ERROR D - EXTERNAL REJECT ON A CLEAR OR REQUEST INTERRUPT FUNCTION. 

♦ ERROR E - INTERNAL REJECT ON A CLEAR OR REQUEST INTERRUPT FUNCTION. 

♦ THIS ERROR WILL REPEAT ON THE SAME LOOP UNTIL THE ERROR 

♦ CONDITION IS CORRECTED. 

♦ ERROR F - EXTERNAL REJECT ON A STOP MOTION AND CLEAR INTERRUPT 

♦ FUNCTION. 

♦ ERROR 10 - INTERNAL REJECT ON A STOP MOTION ANO CLEAR INTERRUPT 

♦ FUNCTION. 

♦ ERROPS 11 AN! 12 ARE NOT USED. 

♦ ERROR 13 - EXTERNAL REJECT ON STATUS AFTER OUTPUTTING A CLEAR INTERRUP 
» AND STOP MOTION FUNCTION. 

♦ ERROR 1^ - INTERNAL REJECT ON STATUS AFTER OUTPUTTING A CLEAR INTERRUP 

♦ ANO STOP MOTION FUNCTION. 

♦ ERROR 15 - A=TER OUTPUTTING A STOP MOTION AND CLEAR INTERRUPT FUNCTION 
♦ONLY POWER ON AND REAOY STATUS SHOULO HAVE BEEN SET. 

♦ BEFORE ERRORS F TO 15 THE TEST DELAYS 10MS. TO ALLOW THE LAST FRAME TO 

♦ BE PUNCHED AMD BUSY STATUS TO OROP. ALSO THE TEST WILL REPEAT IN THE 

♦ SAME LOOP UNTIL THE ERROR CONDITION IS CORRECTED. ERROR 15 DOES NOT 

♦ CHECK FOR TAPE LOW, ALARM AND PROTECT STATUS BITS. 

♦ ERROR 16 = EXTERNAL REJECT ON A CLEAR INTERRUPT FUNCTION. 

A CLEAR INTERRUPT FUNCTION. 
A DATA INTERRUPT REQUEST FUNCTION. 
A DATA INTERRUPT REQUEST FUNCTION. 



ERROR 17 - INTERNAL REJECT ON 
ERROR 18 - EXTERNAL REJECT ON 
ERROR 19 - INTERNAL REJECT ON 
ERRORS 1A TO IF ARE NOT USEO. 
ERROR 20 - EXTERNAL REJECT ON 
REQUEST FUNCTION. 



A CLEAR INTERRUPT OR OATA INTERRUPT 



00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
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0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119. 
0120 
0121 
0122 
0123 
012** 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
Q1M 
0142 



* CRROR 

* REQ.U- 

* ERROR 

* ERROP 

* NEXT 

* FRROR 

* NEXT 

* ERROP 
♦ERROR 
♦&EQUES 
♦ERROR 

'♦BITS ft 
♦ER&OR 
'SELECT 

* ERROP 

* HANG 

* PEARY 

* ERROR 

* IS SF. 

* ERROR 

* BUT B 

* ERROR 

* ERROR 
» MADE 

* ERROR 

* ERROR 

* ERROR 

* ERROR 
*' ERROR 

* ERROR 
♦ERROR 
♦OR AFT 
♦ERROR 
♦OP AFT 

* ERROR 

* ERROP 



21 - INTERNAL REJECT ON A CLEAR 
ST FUNCTION. 
S 22 ANO 23 ARE NOT USED. 

24 - EXTERNAL REJECT ON STATUS 
FRAME OF OATA. 

25 - INTERNAL REJECT ON STATUS 
FRAME OF OATA. 

26 - EXTERNAL REJECT WHEN OUTPU 

27 - INTERRUPT STATUS (BIT 2) IS 
TED BUT OATA READY STATUS IS NOT 

28 - INTERRUPT BIT IS SET, BUT D 
RE CLEAR. 

29 - INTERRUPT AND DATA READY BI 
EO BY THE PROGRAM. 

2A = ALARM STATUS UP AND TAPE B 
HERE UNTIL THE BREAK IS REPAIRED 



INTERRUPT OR DATA INTERRUPT 

JUST BEFORE OUT*»UTTING THE 
JUST BEFORE OUTPUTTING THE 

TTING FRAME OF OATA. 

SET, ONLY DATA INTERRUPT 

SET. 
ATA INTERRUPT AND ALARM INTERRUPT 

TS SET, BUT INTERRUPT MODE IS NOT 

READ STATUS UP. THE TEST WILL 
AND THE PUNCH MADE 



2B = ALARM STATUS IS SET BUT NO ALARM BIT CAN BE FOUNO, POWER ON 
T AND TA°E BREAD AND TAPE LOW ARE RESET* 

2C - START MOTION HAS BEEN OUTPUTTEO AND READY STATUS IS SET. 
USY IS RESET. 

?D- POWER ON STATUS MOT SET 

2E - THr PUNCH HAS DROPPEO READY AND WILL HANG HERE UNTIL IT IS 
PEADY A3AIN BY THE OPERATOR. 

2F - UNIDENTIFIED INTERRUPT. 

30 - ALARM IS SET AND POWER ON IS RESET. CHECK STATUS. 

31 - EXTERNAL REJECT ON STATUS. 

32 - INTERNAL REJECT ON STATUS. 

33 - EXTERNAL REJECT ON A START MOTION FUNCTION. 

34 - INTERNAL REJECT ON A START MOTION FUNCTION. 

35 - EXTERNAL REJECT ON STATUS WHEN ENTERING INTERRUPT PROCESSOR 
ER MAKING PUNCH READY AND STARTING MOTION FOLLOWING A TAPE BREAK. 

36 - INTERNAL 'EJECT ON STATUS WHEN ENTERING INTERRUPT PROCESSOR 
ER MAKING PUNCH READY AND STARTING MOTION FOLLOWING A TAPE BREAK. 

40 - TIMEOUT WAITING FOR AN INTERRUPT PTC2 

41 - VALIDATION ERROR- STATUS BIT 6 SET ♦♦♦ 



00107 
00108 
00109 
00 110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
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PTP0D3 


0H+«+ 


0001 


oi*»5 


02 


Oi<+6 


00 3 3 


01«+7 


000<+ 


01<+B 


0005 


0149 


0006 


0150 


0007 


0151 


0008 


0152 


0009 


0153 


0000 


015<t 


01(13 


0155 


oaoc 


0156 


OOOD 


0157 


001+2 


0158 


00 k.Z 


0159 


00 *♦«♦ 


0160 


45 


0161 


47 


0162 


on '+3 


0163 


00«t9 


016«t 


0056 


0165 


006R 


0166 


0069 


0167 


006C 


0168 


006D 


0169 


006E 


0170 


006F 


0171 


0070 


0172 


0071 


0173 


0072 


017*+ 


0073 


0175 


007«+ 


0176 


• 0075 


0177 


0076 


0178 


0077 


0179 


0078 


0180 


0079 


0181 


007A 


0132 


0079 


0183 


007C 


0181* 


0079 


0185 


007E 


0186 


007F 


0187 


0080 


0188 


0031 


0189 


0082 


0190 


33 


0191 


Q08«+ 


0192 


35 


0193 


86 


019*» 


0387 


0195 


0938 


0196 


0039 



PAGF 



ETJ 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
E1U 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
FQU 
EQU 
EQU 
EQU 
EQU 
EQU 



DATE* 10/20/75 



CONTPOL(l) 
ST0PX(C0NTR0L<-1> 

Exrr<sTopx+i) 

NONDATAINT(EXITfi) 

FCLRINT(NONOATAINT*l 

JUMPX(NONOATAINT*-2> 

GENRAN<JUMPX*1) 

TY^EOUKGENRAN + l) 

TTY8ZY(TYPE0UT*1) 

HEXASCCTYPE0UT+2J 

OV'LAY(HEXASC+l) 

RELPOS<OVRLAY+ll 

MAINL(RFLPOS*l> 

SETHASK(MAINL+531 

STJP(SETMASK*1> 

LASTVALU(STJP«-1> 

LASTAOtSTJP+2) 

LDLC0RE(LASTAD*2> 

LOLlCOR<LOLCORE«-t> 

INFORM(LOLiCOR*11 

SMMCNT(INF0RM+13> 

BIT00(SMMCNT*21) 

BITO(BITOO) 

BITKBITO+ll 

BIT20IT1 + 1) 

BIT3CBIT2H) 

RITMBIT3+1) 

BIT5<BITM-li 

BIT6(BIT5*1> 

9IT7(9IT6+1> 

BIT6(BIT7*1) 

BIT9(9IT8+1> 

BIT10CBIT9«-1» 

BIT1KBTT10 + 1) 

BIT12CBITH+1) 

BIT13(BIT12*H 

BIT1MBIT13 + 1) 

BIT15(BIT1«++1» 

H0000(BIT15+1> 

HFFFFCH0000+11 

HQOOF(HFFFF-H) 

HOOFO(HOOOF-H) 

HQF00(H0OFO*l» 

HF000(H0F00*-11 

HOOFFCHFOOO+l) 

HFF0O(HO0FF*ll 

HFFF0(HFF00+1> 

HOFFFIHFFFO+ll 

HFF0F(HPFFF«-1) 

HF0FF(HFF0F*11 

H7FFF(HF0FF+1) 

H7F00(H7FFF+1> 

H0780(H7F00+1) 



RETURN SMM CONTROL ADDRESS. 
ALL STOPS ANO ERROR TYPEOUTS 
ENO OF TEST-PASS EXIT 
REQUEST INTERRUPT ADDRESS 
) FAKE INTERRUPT CLEAR ROUTINE 
CHECK SKIPSWITCH FOR PARAM ENTRY 
RANOOM NUMBER GENERATOR 
MESSAGE TYPEOUT ROUTINE 
ROUTINE TO WAIT TTY NOT BUSY. 
HEX TO ASCII CONVERSION 
OVERLAY CALL ROUTINE. 
A/Q RELATIVE POSITION TEST. 
MANUAL INTERRUPT ROUTINE. 
M REGISTER RESET VALUE. 
STOP/JUMP PARAMETER WORD. 
MONITOR AREA LWA + 1 
AVAILABLE LOAD CORE FWA. 
BANKO LAST ADDR 
BANK1 LAST ADOR 

BKO SIZE* MASK SIZE* BUSY SWITCH 
SMM PARAMETER WORD. 
XXXXXXXX CONSTANT TABLE XXXXXXXX 



001V+ 
001<+5 
001*»6 
OOH+7 
001<+8 
001«»9 
00150 
00151 
00152 
00153 
00151+ 
00155 
00156 
00157 
00158 
00159 
00160 
00161 
00162 
00163 
0016<+ 
00165 
00166 
00167 
00168 
00169 
00170 
00171 
00172 
00173 
0017«+ 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00182 
00183 
0018'+ 
00185 
00186 
00187 
00188 
00189 
00190 
00191 
00192 
00193 
0019«+ 
00195 
00196 
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0197 


008A 


0198 


0083 


0199 


0091 


0200 


0092 


0201 


006B 


0202 


0056 


0203 


0O'*3 


020«» 


0007 


0205 


OOflA 


0206 


0008 


0207 


0005 


0208 


0008 


0209 


0043 


0210 


0003 


0211 


0-A 



EQU H007F(H0780«-1> 00197 

EQU H2020IH007FH) 00198 

EQU TSACTV(H2020*6> TABLE INOEX TO TEST IN CONTROL. 00199 

EQU TSFRFQ(TSACTVH) TEST, FREQUENCY TABLE' 00200 

EQU CONST(BITOO) 00201 

EQU SMMPAR(SMMCNT) 00202 

EQU SJPAR(STJP) 00203 

EQU RANDOMIGENRAN) 0020«» f 

EQU CONVERTCHEXASCI 00205 V 

EQU MESSAG(TYPEOUT) 00206 

EQU CLRND<FCLP.INT1 00207 

EQU TYPEtTYPEOUT) 00208 s~ 

EQU SJCSTJP1 00209 ( 

EQU TSEXIUEXIT) 00210 v 

EQU CONV(HEXASC) 00211 
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0213 P0000 1808 PTP003 JMP* START 00213 

0214 P0101 5054 ALF 3,PTP003 00214 
P0002 5030 

P0003 3033 

0215 P0Q04 3038 P PARAOI? AOC CNTWRQ-i 00215 

0216 P0005 0029 P RETURN ADC INITIAL 00216 

0217 P0006 00C1 EQUIP NUM JC1 03217 

0218 P00Q7 0002 INT1 NUM tZ 00218 



RESTART FOR THE TEST PTC2 00220 

GET PARAMETERS AND GO TO CONTROL PTC2 00221 



0220 P0003 


5823 


START 


RTJ* 


INPARA 


0221 P000J 


1800 


STWOP 


JMP 


CNTRL 


P000A 


00 6A 









223 *************************************************************** *****pjQ2 00223 

0224 » PTC2 00224 

0225 * TRADE OFF CONTROL DURING PTC2 00225 

0226 * WAIT FOR INTERRUPTS PTC2 00226 

0227 * WILL ONLY TRAOE OFF 1000 TIMES WAITING PTC2 00227 

0228 * FOR THE INTERRUPT TO OCCURE - IF NOT PTC2 00228 

0229 * THEN REPORT ERROR 40 PTC2 00229 
230 ******************************************************************* *ptc2 00230 



SMM WILL PASS CONTROL TO HERE PTC2 00232 



0232 


P0003 
POOOC 


C800 
0459 


CHECK 


LDA 


INTMODF 


0233 


pooon 


0105 




SAZ 


CHECK1 


0234 


P000E 


C81A 




LDA* 


COJNT1 


0235 


P000F 


0105 




SAZ 


CHECK2 


0236 


P0010 


09FE 




INA 


-1 


0237 


POOH 


6817 




STA* 


CO'JNTl 


0238 


P0012 


5401 




RTJ- 


(CONTROL) 


0239 


P0013 
P0014 


1C00 
0391 


CHECK1 


JMH 


(DELAY) 


021*0 


P0015 
P0016 


COOO 
0026 P 


CHECK2 


LDA 


=XCHECK4 


0241 


P0017 
P0018 


E400 
0043 




LOQ 


STJO 


0242 


P0019 


0FA6 




QLS 


6 


0243 


P001A 


0173 




SQM 


CHECKS 


0244 


P001B 
P001C 


9000 
0000 P 




SUB 


=XPTP003 


02h5 


ponio 


6B0A 




STA* 


CHECK4+1 


0246 


P001E 
P001F 


C800 
004F 


CHECK3 


LDA 


SE3TIONS 



CHECK IF TEST IN INT MODE 
TIMEOUT COUNTER 



NO TIME OUT - RTN TO SMM 

TEST CURRENTLY IN CHARACTER MODE 



CKEP IF NO BIAS REQUIREO 
SET DISPLAY RTN AODR 



PTC2 


00233 


PTC2 


00234 


PTC2 


00235 


PTC2 


00236 


PTC2 


00237 


PTC2 


00238 


PTC2 


00239 




00 240 




00241 




00242 




00243 




00244 




00245 




00246 
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0247 


P0020 


8071 




ADO- 


BIT6 


0248 


P0021 


6805 




STA» 


CHECKS 


0249 


P0022 


084<» 




CLR 


A 


0250 


P0023 


5402 




RTJ- 


(src-PXJ 


0251 


P0024 


1SEE 




JMP* 


CHFCKl 


0252 


P0025 


0308 




NUM 


$308 


0253 


P0026 


0000 


CHECK** 


NUN 





0254 


P0027 


0024 P 




ADC 


CHECKV-2 


0255 


P0028 


0000 


COUNT1 


NUM 






SET ERROR 40 
SET SECT/ERROR 

REPORT ERROR 40 



SECT/ERR 
RTN ADDR 



PTC 2 



00247 
00248 
00249 
00 250 
00 251 
00252 
00253 
00254 
00255 



0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 



************* ****************************************** 



INITIALIZE AND GET PARAMETERS 
TEST PARAMETERS- 



CNTWRO- 








9ITS- 








14 RUN 


TEST 


WITH 


ft 


13 RUN 


TEST 


WITH 


7 


12 RUN 


TEST 


WITH 


5 



LEVEL PATTERNS 
LEVEL PATTERNS 
LEVEL PATTERNS 

* ONLY ONE BIT MAY BE SET IN THIS GROUP 
» ■ 11 1 = RUN TEST ENTIRELY IN INTTERPT MODE 

* = RUN TEST IN BLTH INT ANO CHARACTER 

* 10 1 = OMIT OELAY IN CHARACTER MODE 

* = INCLUDE DELAY IN CHARACTER MODE 

* 7-0 TEST SECTIONS 
* 
******************************************************* 



*************PTC2 


00257 


PTC2 


00258 


PTC2 


00259 


PTC2 


00260 


PTC2 


00261 


PTC2 


00262 


PTC2 


00263 


PTC2 


00264 


PTC2 


00265 


PTC2 


00266 


PTC2 


00267 


PTC2 


00268 


MODE PTC2 


00269 


PTC2 


00270 


PTC2 


00271 


PTC2 


00272 


PTC2 


00273 


*»****»******PTQ2 


00274 



r~ 



0276 


P0029 


58 


INITIAL RTJ TNIT1 






P002A 


538 








0277 


P0023 


0000 


INPARA 


NUM $0 




0278 


P002C 


CflOO 




LOA* CNTWRO 




0279 


P002O 


A810 




AND* INPAR2 


R 


0280 


P002E 


E83E 




LDQ* INMONLY 


I 


0281 


P002F 


0141 




SQZ 1 




0282 


P0030 


08 74 




EAQ A 




0283 


P0031 


6808 




STA* CNTWRO 




0284 


P0032 
P0033 


5800 
02E8 




RTJ CHCHM 


S 


0285 


P0034 
P0035 


COOO 
0000 P 




LDA = 


XPTP003 


0286 


P0036 


5402 




RTJ- CSTOPX) 




0287 


P0037 


1808 




JMP» INPAR1 




0288 




00 38 P 




ORG * 




0289 


P0038 


0331 




NUM $0331 





00276 



INPUT PARAMETERS 

REMOVE BIT10 

INTERRUPT MOOE ONLY FLAG 



SWITCH TO CHARACTER MODE 



PARAMETER STOP 





00277 




00278 


PTC2 


00279 


PTC2 


00280 




00281 




00282 




00283 


PTC2 


00284 



STOP ID 



00285 

00286 
00287 
00288 
00289 



f~ 



60220300 



PAGE 



PTPOO 3 



PAGE 



DATE: 10/20/75 



r 



0291 P0039 <t03F 

0292 POOS<\ OOiE 

0293 P0019 QCOO 

29** poosc OF 

0295 P003D 040Q 

0296 P003-: 0002 



CNTW30 NUM $i*03F 

REPEAT NUM 30 

OELAYA NUM 30300 

0ELAY3 NUM SOEOO 

DELAYC NUM S0!*00 

TNT 11 NUM 



CONTROL WORD 00291 

REPEAT PATTERN CYCLE COUNT PTC2 00292 

INCREASE DELAY CHAR TO INT MODE, LESS BETWEPTC2 00293 

PTC2 00294 

DECREASE OELAY INT TO CHAR MODE SWITCHING PTC2 00295 

INTERRUPT LINE ASSIGNMENT ***Q0296 



W 



0298 


P003F 
POO^fO 


58 
02FF 


INPAR1 


RTJ 


CHTNM 


0299 


POO^l 


C3F7 




LDA* CMTWRD 


0300 


P00<»2 


A076 




AND- 


■ CONST+11 


03 01 


P0 0<f3 


6929 




STA* 


INiONLY 


0302 


POOV* 


C8F9 




LDA* 


TNT11 


0303 


POO'tS 


68C.1 




STA* 


INT1 


0304 


POQi+5 


C3F2 




LDA* CNTWRO 


0305 


P00«*7 


A075 




ANO- 


• CONST+LQ 


0306 


PQOkH 


6R25 




STA* 


OMITDEL 


0307 


POO^J 


1CE1 




JMP* (INPARAJ 


0308 


P00*»A 


F7FF 


INPA22 


NUM 


SF7FF 



SET UP FOR INT MODE IF IT WAS IN IT BEFORE 



INITIALIZE INT ONLU FLAG 
MOVE INT LINE BIT 

INITIALIZE OMLU CHAR MODE DELAY 



00298 





00299 


0800 


00300 


PTC2 


00301 


PTC2 


00302 


PTC2 


00303 




00304 


0<tG0 


00105 


PTC2 


00306 




00307 




00308 



n 



0310 


P00<tB 


0000 


CHJMP6 


NUM 


SO 


0311 


POQ^C 


CO 75 




LDA- 


CONSTHO 


0312 


P00*»1 
P004E 


53 
02A6 




RTJ 


JUMP 


0313 


P00*» c 


1802 




JMP* 


CHJP1 


0314 


P0050 


1CFA 




JMP* 


(CHJMP6) 


0315 


P0051 


5809 


CHJP1 


RTJ* 


INPARA 


0316 


P005? 


C81A 


CHJP1A 


LDA* 


INMONLY 


0317 


POO 53 
PQ05<+ 


E800 
0411 




LDQ 


INTMODE 


0318 


P0Q55 


0143 




SQZ 


CHJP2-*-l 


0319 


P0055 


one 




SAN 


CHJP4-*-i 


0320 


P0057 


0A02 




ENA 


2 


0321 


POO 53 


1803 




JMP* 


CHJP3 


0322 


P0059 


0109 


CHJP2 


SAZ 


CHJP4-*-i 


0323 


P005A 


0A04 




EM A 


4 


032*t 


P0053 
P005C 


E900 
0447 


CHJP3 


LDQ 


PSTATUS 


0325 


P005Q 


0500 




UN 





0326 






* 






0327 


P005E 


OBOO 




NOP 





0328 


P005F 


0310 




OUT 


ERRO-*-l 


0329 


P006G 


0FC2 




ALS 


2 



CHECK IF JUMP SWITCH 6 IS SET 

REDISPLAY PARAMETERS IF STOPO ANO JMP 6 IS 

YES JMUP 6 IS SET 
NO RETURN 



INT MODE WAS SELECTED BEFORE **NO CHJP2 
YES INTS ONLY BEEN SELECTED NO CHJP4 
NO CLEAR INTS REQUEST 

INT ONLY BEEN SELECTED **NO CHJP4 

YES SELECT INTS 

INHABIT INTERRUPT SO THAT YOU DONT GET 
ONE RIGHT AFTER YOU REQUEST ONE 



REQUEST OATA INTERRUPT 



**ER0E-0D»* 



00310 
00311 
00312 

00313 
00314 
00315 
00316 
00317 

00318 
00319 
00320 
00321 
00322 
00323 
00324 

00325 
00326 
00327 
00328 
00329 



o 



60220300 



PAGE 



r~' 
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DATE! 10/20/75 



0330 P0061 6800 

P0062 0Vf)5 

331 POO 63 C8 05 

0332 P006^ Af)76 

0333 P0065 6300 
P0066 03FF 

033<+ P0067 0A10 

0335 P0058 5800 
P0069 0288 

0336 P006A 18E7 

0337 POO&f) 1C0F 



CHJPi* 



STA STATECH 

LDA* CNTWRn 
ANO- CONST«-ll 
STA INTMODE 



IF INT SELECTED SET STATE CHANGE SW 



FNA 
RTJ 



$10 
JUMP 



JMP* CHJP1A 
JMP* (3HJMP6) 



REPEAT CONDITIONS 



YES 



00330 

00331 
00332 
00333 

0033^ 
00335 

00336 
00337 



0339 P006C 0000 
03^0 P006D 0000 
03M P006E 0000 



INMONLY NUM SO 
OMITOEL NUM ?0 
SECTION NUM ?0 



RUN TEST IN INT MODE ONLY 
OMIT DELAY IN CHAR MODE 
SECTION NUMBER 



00339 
00 3<»0 
00 3<»1 



031*3 


P006F 


0*7A 


EPRE 


RAO* CTERS 


03<^ 


P0070 


D879 


ERRO 


RAO* CTPRS 


03^5 


P0071 


OAOC 




ENA IC. 


03^6 


P0072 


5878 




RTJ* ERRORS 


03^7 


P0073 


180E 




JMP* CHJP1A 



IN REJECT 



003<i3 
003*»«» 
0031*5 
003<t6 
003*7 



60220300 



PAGE 10 



o 

o 

Q. 



\^J 


037«f 




0375 




0376 


o 


0377 
0378 
037g 




0380 




0381 


o 




o 


0383 




038^ 




0385 


c 


0386 
0387 
0388 




0389 


c 


0390 
0391 
0392 





PTP003 




PASF 11 


DATEl 10/20/75 




03*f9 


P007*> 


C892 


CNTRL 


LDA* 


INT1 




003*»9 


0350 


P0075 


B06C 




EOR- 


CONST+1 


CHECK INTFRRUPT LINE 


00350 


0351 


P0076 


0115 




SAN 


CNTRLl-»-l 


IS THIS PUNCH ON LOW SPFED 


00351 


0352 


P0077 


C88E 




LDA* 


EQUIP 


MAYBE NOW CHECK EQUIP AOOR 


00352 


0353 


P0073 
P0079 


AOOO 
FF80 




AMD 


= N-BFF80 




00353 


035<» 


P007A 


B072 




EOR- 


CONS1>7 




0035<t 


0355 


P007O 


010E 




SAZ 


CNTRL«»-*-l 


IS THIS PUNCH ON LOW SPEEO 


00355 


0356 


P0 7C 


C88A 


CNTRL1 


LDA* 


INT1 


NO 


00356 


357 


P0070 


OCOF 




£NQ 


15 




00357 


0358 


P007E 


0133 


CNTRL2 


SAM 


CNTRL3-*-l 




00358 


0359 


P007F 


ODFE 




INQ 


-1 




00359 


0360 


P0080 


0FC1 




ALS 


i 


IN A TO INTERRUPT LINE 


00360 


0361 


P0081 


18FC 




JMP* 


CNTRL? 


NUMBER IN Q 


00361 


0362 


P0082 


031«t 


CNTRL3 


TRQ 


A 




00362 


0363 


"0083 


3 if 2 




CLR 


Q 




00363 


0361* 


P008^ 


2<16D 




MUI- 


CONST*? 




0036<» 


0365 


P0085 
P0085 


8000 
0102 




AOO 


=N$102 


BUILD ADDRESS WHERE PROCESSOR 


00365 


366 


P0O87 


0322 




TRA 


Q 


ADDRESS WOULD BE STORED IF 


00366 


0367 


P0088 


0201 




LOA- 


1,0 


THIS INT LINE WERE SELECTED 


00367 


368 


P0089 


0119 




SAN 


CNTRL5-*-l 


HAS THIS LINE BEEN SELECTED 


00368 


0369 


P003A 
P0033 


6800 
033<» 


CNTRL<f 


STA 


INTFLG 


YES CLEAR FLG-NO OTHER 


00369 


0370 


P008C 
»008O 


ESOO 
FF78 




L3Q EOJIP 






00370 


0371 


P003E 
P008F 


C300 
FF77 




LDA INT1 






00371 


0372 


P0090 


5tfO«» 




RTJ- 


(NONDATAINTJ 


REQUEST INTERRUPT LINE FROM SMM 


00372 


0373 


P0091 


OMO P 


REQINT 


AOC 


INTENTRY 




00373 


037«f 


P0092 


1808 




JMP* 


CNT1P 


CONTINUE 


0037*1 


0375 


P0093 


C201 


CNTRL5 


LOA- 


1,Q 


YES 


00375 


0376 


P009** 


082? 




TRA 


Q 




00376 


0377 


P0095 


88FB 




EOR* 


REQINT 


010 THIS TEST ALREADY SELECT 


00377 


0378 


P0096 


0103 




SAZ 


CNTlB-»-i 


THIS LINE 


00378 


0379 


P0097 


C3F9 




LOA* 


REQINT 


NO 


00379 


0380 


P0098 


ODFO 




INQ 


-2 




00380 


0381 


POO 99 


6201 




STA- 


ltQ 




00381 



*»********»»»*»*»*»****»»♦**♦**#***+»*♦*»*»#***»****»**#*»***** *»***PTC2 00383 

* ■ PTC2 0038«» 

* CONTROL ROUTINE PTC2 00385 

* VERIFIES IF THE DEVICE ONLOW SPEEO PCKG OF TOHER CONFIGUPTC2 00386 

* BUILDS HEX TNT LINE ASSIGNMENT PTC2 00387 

* REQUESTS INT LINE FROM MONITOR PTC2 00388 

* INITIALIZES MODE SWITCHES PTC2 00389 
» CLEARS THE PUNCH, CHECKS STATUS- ROY,RWR ON PTC2 00390 

* STARTS HOTIIN, CHECKS STATUS- ROY, BZY, DATA, PWR ON PTC2 00391 

* INITIALIZES INT WAIT COUNTER PTC2 00392 



o 
o 
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* TRADES OFF TO SMM MONITOR PTC2 00393 

* PTC2 00394 



L. 



^_ 



v 



0397 P009A 084<» 

0398 P0099 6800 
P009C 03C9 

0399 PO09O 6800 

0400 P009E C89A 

0401 P009F A8AA 

0402 P00A0 8076 

0403 P00A1 6897 



CNT19 CLR A 
STA TNTHOOE 

STA* SECTION 
LOA* CNTWRO 
AND* INPAR2 
EOR- CONST+li 
STA* CNTWRD 



YES 
CLEAR INT MODE SWITCH- INDICATE CHAR MODE PTC2 

CLEAR SECTION NUMBER PTC2 

START PUNCH IN INTERRUPT MODE 



SET BIT 11 <INT MODEI 



0800 



00397 
00398 

00399 
00400 
00401 
00402 
00403 



r 



0405 


P00A2 


F800 




P00A3 


0400 


0406 


P00A4 


0A01 


0407 


P00A5 


033F 


0408 


P00A6 


023C 


0409 


P00A7 


6864 


0410 


P00A8 


AOOO 




P00A9 


F75F 


0411 


POOAA 


0000 




P00A3 


0401 


0412 


POOAC 


0101 


0413 


POOAD 


18 34 


0414 


POOAE 


0A1O 


0415 


POOAF 


5800 




P0090 


0244 


0416 


P00B1 


18F0 


0417 


P0092 


E800 




P0 033 


03F0 


0418 


P00B4 


0A20 


0419 


P0035 


0325 


0420 


P00B6 


0222 


0421 


P00B7 


6854 


0422 


P00B8 


A8F0 


0423 


P00B9 


BOOO 




POOBA 


040B 


0424 


P00B9 


0101 


0425 


POOBC 


181B 


0426 


POOBO 


0A10 


0427 


P008E 


5800 




POOBF 


0235 


0428 


POOCO 


18F1 


0429 


P00C1 


COOO 




P0OC2 


0113 




60220300 1 



CNT1 LDQ PSTATUS 

ENA 1 

OUT FRRl-*-l 

INP ERR3-*-i 

STA* ERSTAT 

CNT1A AND =N$F75F 

EOR =N?tf01 

SAZ 1 
JMP* FRR5 
ENA S10 
RTJ JUMP 

JMP* CNT1 
CNT2 LDQ PSTATUS 

ENA $20 
OUT ERR8-*-l 
INP ERRA-*-l 
STA* ERSTAT 
ANO* CVTlA+l 
EOR =N$40B 

SAZ 1 
JMP* ERRC 
ENA $10 
RTJ JUMP 

JMP* CNT2 
CNT2A LOA =XCSO0A 



CLEAR THE PUNCH 



**ER01-02*» 
**ER03-0t»** 



DO NOT CHECK PROTECT ALARM OR TAPE LOW BIT 
EXPECT POWER ON , READY PTC2 

*** ERROR EXTER STATUS BITS *»ER05-**** 
REPEAT CONDITIONS 



YES 
NO- CONTINUE 

START MOTION 



PTC2 



•♦ER08-09** 
**ER0A-0B** 



DO NOT CHECK PROTECT ALARM OR TAPE LOW BIT 
EXPECT ROY, BZY, DATA, PWR ON PTC2 



** ERROR EXTER STATUS BITS **ER0C-**** 
REPEAT CONDITIONS 



YES 
NO- SET UP FOR INT MODE 



PTC2 



00405 

00406 
00407 
00408 
00409 
00410 

00411 

00412 
00413 
00414 
00415 

00416 
00417 

00418 
00419 
00420 
00421 
00422 
00423 

00424 
00425 
00426 
00427 

00428 
00429 
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o 
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0433 


P00C3 
P00C4 


6800 
339 


STA 


PPT 


FO*CE RTN ADDR FO SECTIONS STAR1 


TO DRIVERPTC2 


00430 


0431 


P00G5 


C037 


LDA- 


H7FFF 






00431 


0432 


P00C6 
PQ0C7 


6800 
FF60 


STA 


C0UNT1 


SET INT WAIT LOOP COUNT 


PTC2 


00432 


0433 


P00C3 
P0 0C9 


COOO 
0009 P 


LDA 


=XCHECK 


SET RETURN ADDR FOR AFTER TRADE 


OFF PTC2 


00433 


0434 


pooca 

P00C3 


6800 
FF39 


STA 


RETURN 




PTC2 


00434 


0435 


POOCC 
POOCO 


6800 
0398 


STA 


INTMOOE 


SET INT MODE SWITHC TO NON-ZERO 


(INT M0DEIPTC2 


00435 


0436 


POOCE 
fOOCF 


6800 
0395 


STA 


OKINT 


OK FOR INT TO OCCURE-SET TO NON 


ZERO PTC2 


00436 


0437 


POODO 
POOOl 


6300 
039.2 


STA 


FIRSTINT 


NON ZERO FOR FIRST INT FLAG 


PTC2 


00437 


0438 


P00O2 
P00D3 


E800 
0300 


LDQ 


PSTATUS 






00433 


0439 


P00D4 


0A04 


ENA 


?4 


REQUEST DATA INTERRUPTS 




00439 


0440 


P00O5 


030A 


OUT 


ERR6-*-! 




**ER06-07»* 


00440 


0441 


POODS 


5401 


RTJ- (CONTROL) RETURN TO SMM 




00441 



o 
o 
o 
c 



o 
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0443 


P00O7 


0812 


ERRC 


RAO* 


CTERS 


0444 


P00D8 


oaii 


ERRB 


PAO* 


CTERS 


0445 


P0009 


0310 


ERR A 


RAO* 


CTERS 


0446 


POODA 


O80F 


EPR9 


RAO* 


CTERS 


0447 


P0003 


D80E 


ERR8 


RAO* 


CTERS 


0448 


POODC 


0A07 




ENA 


7 


0449 


poonu 


5300 




PTJ* 


ERRORS 


0450 


POOOE 


1603 




JMP* 


CNT2 



0452 


POODF 


OBQA 


EPR7 


RAO* 


CTERS 


01*53 


pooeo 


D809 


ERR6 


RAO* 


CTERS 


0454 


POOEi 


0808 


ERR5 


RAO* 


CTEPS 


0455 


P00E2 


O807 


ER»4 


RAO* 


CTERS 


0456 


P00E3 


O806 


ERR 3 


RAO* 


CTERS 


0457 


P0OE4 


0805 


ERR2 


RAO* 


CTERS 


0458 


P00E5 


D804 


ERR1 


RAO* 


CT^RS 


0459 


P00E6 


OAOO 




ENA 


n 


0460 


P0 0E7 


5803 




RTJ* 


ERRORS 


0461 


POOES 


1899 




JMP* 


CNT1 



DATE! 10/20/75 

00 443 V. 

00444 

00445 

00446 \^~ 

00447 ^ 
00448 

00449 

00450 s~ 



00452 ^ 

00453 

00454 

0if55 f 

00456 

00457 

00458 

00459 r~ 

00460 ' 
00461 
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o 



o 
o 






o 



0463 
0464 
0465 
0466 
0467 
0468 



* PTC2 00464 

* ERROR REPORTING PTC2 00465 

* PROCESS ERRORS 1 THROUGH C PTC2 00466 

* PTC2 00467 
»* it***************************** ************#*********«*****»e******pTQ2 00468 



0470 


P00E9 


0000 


CTERS 


NUM 


$0 


0471 


P0 0EA 


0000 


ERRORS 


NUM 


SO 


0472 


POOEO 


38FD 




ADO' 


' CTFRS 


0473 


P0OEC 


68 FC 




STA* 


CTERS 


0474 


POOEO 
POOEE 


CBOO 
FF7F 




LDA 


SECTIONS 


0475 


POOEF 


88F9 




AOO» 


CTERS 


0476 


P00F0 


6819 




STA* 


SECERR 


0477 


POOFl 
P00F2 


4800 
001A 




STQ 


EREQUIP 


0478 


P00F3 
P00F4 


C800 
03 71 




LDA 


INTMODE 


0479 


P00F5 


0101 




SAZ 


1 


0480 


P00F6 


0804 




SET 


A 


0431 


P0OF7 


6817 




STA' 


MOOE1 


0482 


P00F8 


0844 




CLR 


A 


0483 


P00F9 


68F.F 




STA* 


CTFRS 


0484 


POOFA 


C8EF 




LOA* 


1 ERRORS 


0485 


P00FO 


680F 




STA* 


RETAOR 


0486 


POOFG 


C043 




LDA- 


• SJ 


0487 


P00FO 


A0 74 




AND- 


C0NST«-9 


0488 


POOFE 


0114 




SAN 


OVER-*-l 


0489 


POOFF 


C80B 




LDA* 


1 RETAOR 


0490 


P0100 
POlOl 


9000 
0000 P 




SUB 


=XPTP003 


0491 


P0102 


6803 




STA* 


RETADR 


0492 


P0103 
P0104 


5800 
0217 


OVER 


RTJ 


CHCHM 


0493 


P0105 


0844 




CLR 


A 


0494 


POlOo 


5402 




RTJ- 


• (STOPX) 


0495 


P0107 


18 8 




JMP* 


ERROR1 


0496 


P0108 


0328 




NUM 


S0328 


0497 


P0109 


0000 


SECERR 


NUM 


SO 


0498 


P010A 


0000 


RETAOR 


NUM 


SO 


0499 


P0103 


ooon 


ERSTAT 


NUM 


SO 


0500 


P010C 


0000 


EREQ'JIP NUM 


SO 


0501 


POIOO 


0000 




NUM 


so 


0502 


P010E 


0000 


MODEL 


NUM 


$0 


0503 


POIOF 
POllO 


5800 
022F 


ERR0R1 


RTJ 


CHINM 


0504 


P0111 


1CD8 




JMP* 


(ERRORS) 



FORM ERROR CODE 
CUTRENT TEST SECTION 



FORM SSEE FOR MSG 
CURRENT HARDWARE AODR 



SKIP IF IN INT MODE 

0= INT MOOE, 1 = CHAR MODE 

RESET ERROR COUNT 

SET RTN AODR IN MSG 

BIAS IF NECESSARY 

WAIT UNTILL PROGRAM CONTROL IS RETURN 

STOP 10 



SET = INT MODE CLR = CHAR MOOE 

SET UP FOR INT MOOE IF IT WAS IN IT BEFORE 





00470 




00471 




00472 


PTC2 


00473 


PTC2 


00474 




00475 


PTC2 


00476 


PTC2 


00477 



PTC2 
PTC2 
PTC2 
PTC2 

PTC2 



00478 

00479 
00480 
00481 
00482 
00483 
00484 
00485 
00486 
00487 
00488 
00489 
00490 

00491 
00492 

00493 
00494 
00495 
00496 
00497 
00498 
00499 
00500 
00501 
00502 
00503 

00504 
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0506 
0507 
0508 
0509 
0510 



*************************** mm.^.9^** ************ *********************pj£2 00506 

* ■ PTC2 00507 

* FORMAT TAPE LEADER PTC2 00508 

* PTC2 00509 
***************************** ****** ****************.**** ****** ****** *PTC 2 00510 



0535 P012B E800 
P012C FFOC 

0536 P012O C06B 

0537 P012E n8B4 

0538 P012F 0111 

0539 P0130 1865 

0540 P0131 0844 
051*1 P0132 6800 

P0133 023B 



CS00O 



LDQ CNTWRD 

LDA- CONST 

LAQ A 

SAM 1 

JMP* CS200 

CLR A 

STA COMPATEN 



CONTROL WORD 



SECTION ONE ZIGZAG 

NO 

CLEAR COMPLEMENT PATTERN SWITCH 



0001 



00535 

00536 
00537 
00538 
00539 
005<»0 
00541 



V..- 



C 



0512 


P0112 


0000 


FREQSW 


NUM * 








0513 


P0113 


0AF5 


CSOOA 


ENA - 


10 






0514 


P0114 


68FO 




STA* 


FRE 


:qsw 


0515 


P0115 


08M* 


CSOOC 


CLP. A 








0516 


P0116 


580.0 




RTJ PPT 








P0117 


02E6 












0517 


P0118 


D8F9 




RAO* 


F^E 


:qsw 


0518 


P0119 


C8F8 




LDA* 


F?E 


QSW 


0519 


P011A 


0101 




SAZ C 


SOOD 




0520 


P011B 


18F9 




JMP* 


CSOOC 




0521 


POllC 
P011D 


E800 
FF1R 


CSOOU 


LDQ 






CNTWRD 


0522 


P011E 


CO 77 




LDA- 






BIT12 


0523 


P011F 


083<» 




LAQ 






A 


0524 


P0120 


0102 




SAZ 






2 


0525 


P0121 


0A1F 




ENA 






S1F 


0526 


P012? 


1807 




JM»* 






CS00D1 


0527 


P0123 


C078 




LDA- 






BIT13 


0528 


P0124 


083^ 




LAQ 






A 


0529 


P0125 


0102 




SAZ 






2 


0530 


P0126 


0A7F 




ENA 






$7F 


0531 


P0127 


1802 




JMP* 






CS00D1 


0532 


P0128 


C031 




LDA- 






HOOFF 


0533 


P0129 
P012A 


5800 
02D3 


CS0OO1 


RTJ 






PPT 



FREQUENCY SWITCH 

SET FREQUENCY SWITCH FOR 10 FRAMES 

SET PUNCH CHARACTER TO ZERO 
WXIT TO DRIVER 



SKIP AFTER 10 FRAMES 



CHECK IF LEVEL 5 SELECTED 

[3 

SET SECTION ID 



CHECK IF LEVEL 7 SELECTED 

NO 

SET MASK IF YES 

MUST BE 8 LEVEL SELECYEO 
PUNCH ONE FRAME OF ALL ONES 



PTC2 
PTC2 

PTC2 
PTC2 



00512 
00513 
00514 
00515 
00516 



00517 

00518 

PTC2 00519 

00520 

***00521 

♦♦•00522 
***00523 
***00524 
***00525 
***00526 
***O0527 
***00528 
***00529 
•♦♦00530 
***00531 
***00532 
♦♦♦00533 



r 



( 
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DATE: 10/20/75 



051*2 POIS^ 0C01 
0543 P0135 COOO 

P0136 0195 P 



ENQ 1 

IDA =XCS200 



00542 
00543 



o 



0545 



SECTION 1 ZIGZAG 



00545 





0547 






* 






THIS PORTION IS USED BY BOTH SEC 1 ANO 2 


00547 


s~\ 


0548 


P0137 


43 4 B 


csioo 


STQ* 


CS10A 


STORE PUNCH SECTION NUMBER 




00548 


( ' 


0549 


P0138 


0FA8 




QLS 


8 






00549 


V. .^- 


0550 


P0139 


483C 




STQ* 


S107A 






00550 




0551 


P013A 


4800 




STQ 


SECTION 






00551 


r> 




P0133 


FF32 














0552 


P013C 


68 45 




STA* 


SS109 






00552 




0553 


P013D 
P013E 


E800 
FEFA 




LOQ 


CNTWRD 






00553 




0554 


P013F 


CO 77 




LDA- 


CONST4-12 


YES 


1000 


00554 




0555 


P0140 


08B4 




LAQ 


A 






00555 


Vj 


0556 


P0141 


0104 




SAZ 


CS101-*-l 


5 LEVEL PATTERN **NO SKIP 


CS101 


00556 




0557 


P0142 
P0143 


EOOO 
0373 P 




LOQ 


= XZZ5 


YES 




00557 


'—v, 


0558 


P0144 


OA1F 




ENA 


TIF 


EXTRACT VALUE 




00558 


u 


0559 


P0145 


1803 




JMP* 


CS103 






00559 


0560 


P0146 


C078 


CS101 


LDA- 


CONSTH3 






00560 




0561 


P0147 


8B4 




LAQ 


A 






00561 


O ' 


0562 


P0148 


0104 




SAZ 


CS10?-*-l 


7 LEVEL PATTERN **NO SKIP 


CS102 


00562 


0563 


P0149 


EOOO 




LDQ 


= XZZ7 


YES 




00563 




P014A 


3 71 P 
















0564 


P014B 


0A7F 




ENA 


S7F 






00 564 




0565 


P014C 


1804 




JMP* 


CS103 






00565 


C 


0566 


P0143 
P014E 


EOOO 
036F P 


CS102 


LOQ 


= XZZ8 


8 LEVEL PATTERN 




00566 




0567 


P014F 


CO 81 




LDA- 


HOOFF 






00567 




0568 


P0150 


6800 


CS103 


STA 


PPEXL 






00568 


O 




P0151 


021B 














0569 


P0152 


4340 




STQ* 


LEVELCT 


LEVEL COUNT 




00569 


0570 


P015 3 


5830 




RTJ* 


RESTWD 


RESTORE WORD, WOPDH, ANO W0R0+2 




00570 




0571 


P0154 


0AF5 


CS104 


ENA 


-10 






00571 


s~~^* 


0572 


PQ155 


683E 




STA* 


SPACERS 


PUNCH 10 SECTION PUNCHES IN LEVEL 


ONE 


00572 


C ) 


0573 


P015& 


C82C 


CS105 


LOA* 


CS10A 


LOAD WITH SECTION PUNCH NUMBER 




00573 


V_y 


0574 


P0157 
P0158 


5800 
02A5 




RTJ 


PPT 






00 574 




0575 


P0159 


08 3A 




RAO* 


SPACERS 






00575 


c 


0576 


P015A 


C839 




LOA* 


SPACERS 






00576 


0577 


P015B 


0101 




SAZ 


1 


LAST PUNCH 




00577 




0578 


P015C 


18F9 




JMP* 


CS105 


NO LOOP BACK 




00578 
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0579 


P0150 
P015E 


C800 
FEOB 


C105A 


LDA 


REPEAT 


0580 


P015F 


0864 




TCA 


A 


0581 


P0160 


68 34 




STA* 


CYCLES 


0582 


P0161 
P0162 


5800 
01EB 


CS106 


RTJ 


GENPATT 


0583 


P0163 
P0164 


5800 
0299 




PTJ 


PPT 


058*» 


°0165 
P0166 


5800 
023F 




RTJ 


DELAY 


0585 


P016? 
P0163 


C800 
0205 




LDA 


SECTENDSW 


0586 


P0169 


0111 




SAN 


1 


0587 


P016A 


1HF6 




JMP* 


CS106 


0588 


P016B 


5818 




RTJ* 


RES TWO 


0589 


P016C 


0828 




RAO* 


CYCLES 


0590 


P016D 


C827 




LDA* 


CYCLES 


0591 


P016E 


0101 




SAZ 


CS107-*-l 


0592 


P016F 


18F1 




JMP* 


CS106 


0593 


P0170 
P0171 


5800 
01AA 


CS107 


RTJ 


CHCHM 


0594 


P0172 


5402 




RTJ- 


<STOPX> 


0595 


P0173 


1803 




JMP* 


CS108 


0596 


P0174 


0302 




NUM 


•5302 


0597 


P0175 


0100 


S1A7A 


NUM 


$100 


0599 


P0176 
P0177 


5800 
01C8 


CS108 


RTJ 


CHINH 


0600 


P017H 
P0179 


5800 

FF.ni 




RTJ 


GHJHP6 


0601 


P017A 


0A20 




ENA 


«:?(] 


0602 


P0173 
P017C 


5800 
0178 




RTJ 


JJMP 


0603 


P017O 


180F 




JMP* 


C105A 


060*1 


P017E 
P017F 


E800 
FEB9 




LDQ. 


GNTWRO 


0605 


P0180 


1C01 




JMP* 


(3S109) 


0606 


P0131 


0195 P 


CS109 


ADC 


CS200 


0607 


P0182 


0001 


CS10A 


NUM 


$1 



DATE* 10/20/75 

YES 

NUMBER OF TIMES TO REPEAT ONE CYCLE 
OF ZIGZAG ZERO PATTERN 

PUNCH CHARACTER 

DELAY (SAW TOOTH) 



DONE WITH ONE CYCLE 

NO 

RESTORE WORD, WORD*!, ANO W0R0+2 



DONE WITH THE NUMBER OF CYCLES 

WAIT UNTILL PROGRAM CONTROL IS RETURN 

** STOP END OF SECTION 

ID 

SECTION 1 OR 2 

SET UP FOR TNT MODE IF IT WAS IN IT BEFORE 
CHECK FOR RE-ENTRY OF PARAMETERS 

REPEAT SECTION 



YES 
NO 



THIS EXIT IS CHANGED AT THE START OF SEC. 
SECTION PUNCH NUMBER 



00579 

00580 
00581 
00582 

00583 

00584 

00585 

00586 
00587 
00588 
00589 
00590 
00591 
00592 
00593 

00 594 
00595 
00596 
00597 

00599 

00600 

00601 
00602 

00603 
00604 

00605 
00606 
00607 



0609 P018J 0000 RESTWO NUM SO 



0610 P0184 0C00 

0611 P0185 CEOD 

0612 P0186 6500 
P0187 01E1 

0613 P0188 6800 
P0189 01E0 

0614 P018A 0DO1 



ENQ 

LDA* (LEVELCT),Q 

STA WORO 

STA WORO+1 

INQ 1 



RESTORE WORDS IN GENERATE PATTERN 
RESTORE WORO ANO WORD*! 



00609 
00610 
00611 
00612 

00613 

00614 



v.,..,- 



v.. 
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0615 P0193 CE07 LOA* t!_EVELCT),Q RESTORE WORD*2 00615 

0616 P013C 6800 STA WORD+2 00616 
P018a 01OD 

0617 P013E 080<f SET A 00617 

0618 P013F 6800 STA PPSW 00618 

P0190 oina 

0619 P0191 1CF1 JMP* tRESTWO) 00619 



0621 P0192 0000 LEVFLCT NUM *0 00621 

0622 P0193 0000 SPACEPS NUM SO 00622 

0623 P019'* 0000 CYCLES NUM $0 00623 



0625 F0195 OA02 CS200 ENA 2 00625 

0626 P0196 083^ LAQ A 00626 

0627 P0197 0111 SAN 1 SECTION 2 00627 
062B P0193 1807 JMP* CS<*00 NO 00628 



0630 ***♦* SECTION ?. COMPLEMENT ZIGZAG PATTERN 00630 



0632 P0199 0C02 CS201 ENQ ?. YFS SET COMPLEMENT PATTERN SWITCH 00632 

0633 P019A «»800 STQ COMPATEN LOAD SECTION NUMBER IN Q 00633 
P0193 0103 

063** P019C C000 LOA = XCS*»O0 LOAD EXIT VALUE - BIAS IN A 0063«» 

P0190 019F P 

0635 P019E 1898 JMP* CS100 00635 



0637 P019P" 0A0«* CS^OO ENA k 00637 

0638 P01A0 03B«f LAQ A 00638 

0639 P01A1 0111 SAN 1 SECTION k 00639 
06f»0 P01A2 1862 JMP» C5800 NO 006<»0 
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DATE! 10/20/75 



0642 



SECTION U PYRAMIO PATTERN 



006*2 



06*»«* P01A3 08*t» 
06^5 °01A£f 6500 

P01A5 01C9 
06«f6 P01A6 0C03 
06i»7 P01A7 COOQ 

P01AO 020^ 



CLR A 
STA 

ENQ 
LDA 



COMPATEN 



3 

:XCS800 



CLEAR COMPLEMENT PATTERN SWITCH 
SET SECTION ID 



00 6** 
006*5 

***006*6 
006*7 



'v... 



V. 



r~~ 



06«»9 






0650 


P01A9 


*859 


0651 


P01AA 


0FA8 


0652 


P01AB 


*800 




P01AC 


FECI 


0653 


P01AD 


*8<+8 


065** 


PCI1AE 


6853 


0655 


P01AF 


08*<» 


0656 


P01B0 


6353 


0657 


P01D1 


E8 




P01B2 


FF86 


0658 


P0133 


CO 77 


0659 


POlQif 


Q8B«» 


0660 


P01B5 


010* 


0661 


P0136 


EOOO 




P01B7 


0379 


0662 


P0133 


0A1F 


0663 


P0189 


180C 


065* 


P01BA 


C078 


0665 


P01BB 


(183<» 


0666 


P01BC 


010* 


0667 


P01BO 


EOOO 




P01BE 


0377 


0668 


P01BF 


0A7F 


0669 


P01C0 


1805 


0670 


P01C1 


EOOO 




P01C2 


0375 


0671 


P01C3 


C081 


0672 


PQ1C» 


683F 


0673 


P01C5 


6800 




P01C6 


01A6 


067* 


P01C7 


*8CA 


0675 


P01C8 


58BA 


0676 


P01C9 


0AF5 


0677 


P01C4 


68C8 



CS*01 STQ* CS«»0O 

QLS 9 

STQ SECTION 

STQ* CS^OA 

STA* CS*OC 

CLR A 

STA* CS^OE 

LDQ CMTWRO 

LOA- C0NSTH2 

LAQ A 

SAZ CS<t02-*-l 

LDQ = XPY5 

ENA SIF 

JMP* CS<»0* 

CS*02 LDA- CONST+13 

LAQ A 

SAZ CS«»03-*-l 

LDQ =XPY7 

ENA S7F 

JMP* CS*»0* 

CS403 LDQ =XPY8 

LOA- HOOFF 

STA* CStfOE 

CS<*0^ STA PPEXL 

STQ* LEVELCT 

RTJ* P.ESTWD 

ENA -10 

STA* SPACERS 



THIS PORTION IS USED BY BOTH SEC. * ANO 8 
STORE PUNCH SECTION NUMBER 



CLEAR THE 8TH LEVEL SH 



5 LEVEL PATTERN 
YES 

EXTRACT VALUE 



7 LEVEL PATTERN 
YES 

EXTRACT VALUE 

5 OR 7 NOT SELECTED SO PUNCH IN 9 LEVEL 

MODE 
SET THE 8TH LEVEL SH 



LEVEL COUNT 

RESTORE WORD, WORO+1, ANO WORD+2 

PUNCH 10 SECTION PUNCHES 



1000 



006*9 
00650 
00651 
00652 

00653 
00 65* 
00655 
00656 
00657 

00658 
00659 
00660 
00661 

00662 
00663 
00 66* 
00665 
00666 
00667 

00668 
00669 
00670 

00671 
00672 
00673 

0067i» 
00675 
00676 
00677 



r 
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o 








PTP003 


0678 


P01C3 


C837 


0679 


P01CC 


5800 




P01CO 


0230 


0680 


P01CE 


D8C4 


0681 


P01CF 


C8C1 


0682 


P01O0 


0101 


0683 


P01O1 


18F9 


0634 


P01D2 


CflOO 




P01D3 


FF66 


0685 


PQ104 


0864 


0686 


PQ1D5 


63BE 


0687 


P01O6 


5300 




P01D7 


0176 


0638 






0639 


P01O3 


E300 




P01D9 


019«» 


0690 






0691 


P01OA 


01 ^ 8 


0692 


P0109 


AOOO 




P01OC 


0Q7F 


0693 


P01DO 


£800 




P01OE 


0190 


069^ 


P01DF 


0143 


0695 


PQ1E0 


E823 


0696 


P01E1 


0141 


0697 


POLE? 


8072 


0698 


P01E3 


5800 




P-01E4 


0219 


0699 


P01E5 


5800 




PQ1E5 


01OF 


0700 


P01E7 


C800 




P01E8 


0185 


0701 


P01E9 


0111 


0702 


P01EA 


18EB 


0703 


P01E8 


5897 


0701* 


P01EC 


08A7 


0705 


P01EO 


C8A6 


0706 


P01EE 


0101 


0707 


P01EF 


18E6 


0708 


P01F0 


5800 




P01F1 


012A 


0709 


P01F? 


5«*02 


0710 


P01F3 


1803 


0711 


P01F4 


0302 


0712 


P01F5 


0000 


0714 


P01F6 


5800 




P01F7 


0148 


0715 


P01F8 


5800 




P01F9 


FE51 


0716 


P01FA 


0A20 


0717 


P01F9 


5800 




P01FC 


00F3 
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CS405 LOA* CS*»0D 
RTJ PPT 

RAO* SPACERS 
LOA* SPACERS 
SAZ 1 
JHP* CS405 
CS<«06 LOA RFPEAT 

TCA A 
STA* CYCLES 
CS407 RTJ GENPATT 



LOQ SECTFNOSM 



SOZ CS408-*-l 
AND = tf$7F 

LDQ COMPATEN 

SOZ CS^08-*-l 
LDQ* CS40E 
SOZ CS408-*-l 
ADD- CONST*7 
CS«f08 RTJ PPT 

RTJ D?LAY 

LOA SECTENDSW 

SAN 1 
JMP* CS<«07 
RTJ* RESTWO 
RAO* CYCLES 
LOA* CYCLES 
SAZ CS<t09-*-l 
JHP* CS407 
CS409 RTJ CHCHM 

RTJ- (STOPX) 
JMP* CS<f08 
NUH $0302 
CS*tOA NUM SO 



CS403 RTJ CHINM 

RTJ CHJMP6 

ENA S20 

RTJ JUMP 



DATEJ 10/20/75 



PUNCH CHARACTER 



LAST CHAR PUNCHED 

NO 

YES 



NUMBER OF TIMES TO REPEAT ONE CYCLE 
OF PYRAMID PATTERN 

A WILL CONTAIN THE PATTERN TO BE PUNCHED 
Q HILL BE SET WHEN LAST CHAR OF CYCLE IS 

IS IN A 
LAST CHAR 
YES 



COMPLEMENT PATTERN 

8TH LEVEL 

YES 

PUNCH CHARACTER 

OELAY (SAW TOOTH) 



OONE WITH CYCLE 

NO 

YES RESTORE WORDS 



OONE WITH THE NUMBER OF CYCLES 

NO 

WAIT UNTILL PROGRAM CONTROL IS RETURN 

** STOP ENO OF SECTION 

STOP ID 
SECTION «♦ OR 8 



SET UP FOR INT MODE IF IT WAS IN IT BEFORE 
CHECK FOR RE-ENTRY OF PARAMETERS 

REPEAT SECTION 



60220300 E 



00678 
00679 

00680 
00681 
00682 
00683 
00684 

00685 
00686 
00687 

00668 
00689 

00690 
00691 
00692 

00693 

00694 
00695 
00696 
00697 
00698 

00699 

00700 

00701 
00702 
00703 
00704 
00705 
00 706 
00707 
00708 

00709 
00710 
00711 
00712 



00714 

00715 

00716 
00717 
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DATE» 10/20/75 



0718 P01FO 180«» 

0719 P01FE E800 
P01FF FE-39 

0720 P020I1 1C01 



JMP* CS*0 6 
LDQ CNTWRO 

JMP* CCSVOCI 



yes 

NO 

NEXT SECTION 



00718 
00719 

00720 



0722 P0201 020«» P CSAOC ADC CS800 

0723 P0202 OOCf CS«»01 NUM $t* 
072* P0203 0000 CS^OE NUM tO 



SECTION PUNCH NUMBER 
8TH LEVEL SWITCH 



00722 
00723 
0072* 



0726 P020t* 0A08 

0727 P0205 088«» 

0728 P020& 0111 

0729 P0207 1807 



CS80Q 



ENA 
LAQ 
SAN 
JMP* 



ft 
A 
1 
CS1000 



SECTION 8 
NO 



00726 
00727 
00728 
00729 



0731 



SECTION 8 COMPLEMENT PYRAMID PATTERN 



00731 



S 



0733 P0208 0C0* 

073*» P0209 U800 

P020A 016«» 

0735 P020B C000 
P020C 020E P 

0736 P0201 189B 



FNQ «f 
STQ COMPATEN 



LOA 



:XCS1000 



JMP* CS«»01 



SET SECIONT ID 
LOAD SECTION NUMBER IN Q 

LOAO EXIT VALUE - BIAS IN A 

AND SET COMPLEMENT PATTERN SWITCH 



***00733 
00 73* 

00735 

00736 



0738 P020E 0A10 

0739 P020F 0831* 
07*»0 P0210 0111 
07*1 P0211 1851 



CS1000 



ENA $10 

LAQ A 

SAN 1 

JMP* CS2000 



SECTION 10 
NO 



00738 
00739 
00740 
007*1 



07i»3 



SECTION 10 ALL ONES AND ZEROS 



007*3 



V., 
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DATE* 10/20/75 





0745 






o 


07«»6 
07<»8 








07^9 


P0212 


0FC8 


o 


0750 


P021 J 


6800 




P021<* 


FE59 




0751 


P0215 


OA05 




075? 


P0216 


68*t0 


r"^ 


0753 


P0217 


C075 


u 


0751* 


P0218 


6800 




H0219 


FE53 




0755 


P021A 


OAFD 


S — \ 


0756 


P0213 


6800 


Q 




P021C 


0173 




0757 


P021D 


0AF5 




0758 


P021E 


6300 






P021F 


016F 


C"\ 


0759 


P0220 


6800 


i 




P0221 


FF71 




0760 


P0222 


5835 




0761 


P0223 


C833 




0762 


P022«» 


5800 


O 




P0225 


0103 




0763 


P0226 


D800 






P0227 


FF68 


/ — \ 


076*» 


P0228 


C800 


u 




P0229 


FF69 


0765 


P022A 


0101 




766 


P0223 


18F7 




0767 


P022C 


C800 


o 




P0220 


FE0C 




0768 


P022E 


086<t 




0769 


P022F 


6800 






P0230 


FF63 


Q 


0770 


P0231 


5800 




P0232 


0Ht9 




0771 


P0233 


5800 






P0234 


01C9 


.-— N 


0772 


P0235 


5800 


u 




P0236 


016F 


0773 


P0237 


C300 






P0238 


0135 


' — \ 


0774 


P0239 


0111 


u 


0775 


P023A 


18F6 


0776 


P023O 


0800 






P023C 


FF57 




0777 


P023D 


C800 


C 




P023E. 


FF55 


0778 


P023F 


0101 




0779 


P02*»0 


18F0 



CS1001 ALS 8 
STA SECTION 

ENA 5 
STA* CS1007 
IDA- CONSTHO 
STA OMITDEL 

ENA -2 
STA HENOJf 

ENA -10 
STA GEN03 

STA SPACERS 

RTJ* SETEXL 
CS1002 LDA* CS1007 
RTJ PPT 

RAO SPACERS 

LDA SPACERS 

SAZ 1 
JMP* CS1002 
CS1003 LDA REPEAT 

TCA A 

STA CYCLES 

CS1004 RTJ GENOZ 

»TJ PPT 

RTJ DELAY 

LDA SECTENDSW 

SAN 1 

JMP* CS100t» 

RAO CYCLES 

LDA CYCLES 

SAZ 1 
JMP* CS1004 



THIS SECTION SET OMIT DELAY SWITCH SO 
THAT PUNCHING IS DONE AT HIGH SPEED. 



ONE CYCLE EQUALS 10 ALL ONES, 3 ALL ZEROS 



SET SECTION ID 
SET OMIT DELAY SW BUT DONT CHANGE 3IT 
10 OF THE CONTROL WORO SO THAT OMITOELAY 

MAY BE RESET. 

RESTORE PATTERN GFNERATER 



SET UP EXTRACT VALUE 

PUNCH SECTION NUMBER 10 TIMES 



DONE 

NO 

YES 



SET UP PATTERNS 
PUNCH 



DONE WITH ONE CYCLE 

NO 

YES 



SECTION COMPLETED 
NO ONE MORE CYCLE 



00 7*5 
007*6 



007*8 

***007*9 

00750 

*»*00751 

***Q0752 

00753 

0075* 

00755 
00756 

00757 
00758 

00759 

00760 
00761 
00762 

00763 

0076* 

00765 
00766 
00767 

00768 
00769 

00770 

00771 

00772 

00773 

00 774 
00775 
00776 

00777 

00778 
00779 
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;( ) 



PTP003 



0780 


P0241 


5800 




P0242 


0009 


0781 


P0243 


540? 


0782 


P0244 


1803 


0783 


P0245 


0302 


078*» 


P0246 


1000 


0786 


P0247 


5800 




P0249 


00F7 


0787 


P0243 


5800 




P024A 


FEOO 


0758 


P0243 


0A20 


0789 


P024C 


5800 




P024D 


00A7 


0790 


P024E 


1800 


0791 


P024F 


E800 




P025C 


FDE8 


0792 


P0251 


0814 


0793 


P0252 


A075 


079** 


P0253 


6800 




PQ25k 


FE18 


0795 


P0255 


1800 
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RTJ CHCHM 

RTJ- (STOPX) 
JMP* CS1006 
NUM $0302 

csioa5 num naoo 



CS1006 RTJ CHTNM 

RTJ CHJMP6 

ENA $?3 
RTJ JUMP 

JMP* CS1003 
LDQ CNTWRD 

TRQ A 
•AND- CONST«-10 

STA OMTTCEL 

JMP» C32000 



DATE» 10/20/75 
YES 

STOP 10 

CHECK FOR RE-ENTRY OF PARAMETERS 



REPEAT SECTION 

YES 
NO 



RESET OMIT DELAY SWITCH 



NEXT SECTION 



00780 

00781 
00782 
00783 
00784 



00786 

00787 

00788 
00789 

00790 
00791 

00792 
00793 
00794 

00795 



0797 P0256 0010 



CS10G7 NUM *10 



00797 



0799 P0257 


0000 


SETEXL 


NUM 





0800 P0258 


C081 




LOA' 


HOOF 


0801 P0259 


0FA1 




QLS 


1 


0802 P025A 


0174 




SQM 


SETEXt-*-l 


0803 P025B 


0FA1 




QLS 


1 


0804 P025C 


0F41 




ARS 


1 


0805 P025D 


0171 




SQM 


SETEXi-*-l 


0806 P025E 


0F42 




ARS 


2 


0807 P025F 


6800 


SETEX1 


STA 


PP C XL 


P0260 


010C 








0808 P0 261 


1CF5 




JMP* 


(SETEXLI 



OOFF 



LEVEL 8 



00799 
00800 
00801 
00802 
00803 
00804 
00805 
00806 
00807 

00808 



r~- 



s~ 



0810 P0262 OA20 



CS2000 ENA 5520 



00810 



/"" 
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f 



PTP003 



0811 P0263 OSS'* 

0812 P026<f 0111 

0813 P0265 13«»7 



PAG r 



LAQ A 
SAN 1 
JMP* CS'fOOO 



OATEt 10/20^75 



SECTION 20 
NO 



00811 
00812 
00813 



o 



0815 



SECTION 20, C9, 36 PATTERN 



00315 



1 ) 



( ) 



u 



f I 



0817 






* 






0818 






* 






0819 






» 






0820 


P0266 


0FC8 


CS2001 


ALS 


8 


0821 


P0267 
P0268 


6800 
FE05 




STA 


SECTION 


0822 


P0269 


0A06 




ENA 


6 


0823 


P026A 


68^1 




STA' 


* CS2007 


082<t 


P0263 


CO 75 




LDA- 


CONST«-10 


0825 


P026C 
P0260 


6800 
FOFF 




STA 


OHITOEL 


0826 


P026E 


0AF8 




FNA 


-7 


0827 


P026F 
P"0270 


6800 
0133 




STA 


GENC3 


0828 


P0271 


0901 




IN* 


1 


0829 


P0272 
P0273 


6800 
0131 




STA 


GENC* 


0830 


P027«f 


58E2 




RTJ* 


SETEXL 


0831 


P0275 


0AF5 




ENA 


-10 


0832 


P0276 
P0277 


6800 
FFlfl 




STA 


SPACERS 


0833 


P0273 


C833 


CS2032 


LOA* 


CS2007 


083V 


P0279 
»027A 


5800 
0183 




RTJ 


PPT 


0835 


P027B 
P027C 


D800 
FF16 




RAO 


SPACERS 


0836 


P0270 
P027E 


C800 
FF1«* 




LOA 


SPACERS 


0837 


P027F 


0101 




SAZ 


1 


0838 


P0280 


18F7 




JMP* 


CS2002 


0839 


P0281 
P0282 


C800 
FDB7 


CS2003 


LOA 


REPEAT 


08«»0 


P0283 


086if 




TCA 


A 


08m 


P028«t 
P0285 


6800 

FFOE 




STA 


CYCLES 


08*»2 


P023& 
P0287 


5800 
0109 


cs2on*» 


RTJ 


GENC9 


08<f3 


P0283 
P0289 


5800 
017V 




RTJ 


PPT 



THIS SECTION SET OHIT DELAY SWITCH SO THAT 
PUNCHING IS DONE AT HIGH SPEED. 
ONE CYCLE EQUALS 7 C9S ANO 7, 36S 



SET SECTION ID 



RESTORE GENERATE PATTERN 



SET UP EXTRACT VALUE 



PUNCH SECTION NUMBER 10 TIMES 



THAT ALL 

NO LOOP BACK 

YES 



00817 
00818 
00819 
•♦♦00820 
00821 

♦♦•00822 

♦♦♦00823 

0082<i 

00825 

00826 
00827 

00828 
00829 

00830 
00831 
00832 

00333 
0083V 

00835 

00836 

00837 
00838 
00839 

003VO 
008<tl 

008V2 

008<f3 
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P) 



v. 





PTP0U3 


0844 


P028A 


5800 




P0283 


011A 


08«t5 


P028C 


C8 00 




P028D 


OOEO 


08*i6 


P028E 


0111 


0847 


P023F 


18F6 


08«»8 


P0290 


D800 




P0291 


FF02 


0849 


P029? 


C800 




P0293 


FFOO 


0850 


P029«f 


0101 


0851 


P0295 


18F0 


0852 


P0296 


5800 




P0297 


0084 


0853 


P0293 


5402 


0854 


P0299 


1803 


0855 


P029A 


0302 


0856 


P029B 


2000 


0858 


P029C 


5800 




P029D 


00A2 


0859 


P029E 


5800 




P029F 


F0A9 


0860 


P02A0 


0A20 


0861 


P02A1 


5800 




P02A2 


0052 


0862 


P02A3 


18DD 


0861 


P02Atf 


E800 




P02A5 


F093 


0864 


P02A& 


0811* 


0865 


P02A7 


A0 75 


0866 


P02A8 


6800 




P02A9 


F0C3 


0667 


P02AA 


1802 



PAGE 26 

RTJ DELAY 

LDA SECTENOSW 

SAN 1 
JMP* CS2004 
RAO CYCLES 

LOA CYCLES 

SAZ 1 

JMP» CS200U 

RTJ CHCHM 

RTJ- (STOPX) 

JMP* CS2006 
NUM $0302 
CS2005 NUM $2000 

CS2006 RTJ CHINM 

RTJ CHJMP6 

ENA *20 
RTJ JUMP 

JMP* CS2003 
LOQ CNTWRO 

TRQ ft 

AND- CONST+10 
STA OMITnEL 

J^P* CS4000 



DATE: 10/20/75 



OONE WITH CYCLE 

NO 

YES 



STOP AT ENO OF SECTION 
STOP ID 
SECTION NUMBER 



CHECK FOR RE-ENTRY OF PARAMETERS 



REPEAT SECTION 
YES 

RESET OMIT DELAY 



00844 

00845 

00846 
00 847 
00848 

00849 

00350 
00851 
00852 

00853 
00854 
00355 
00356 

00858 

00859 

00860 
00861 

00862 
00863 

00364 
00865 
00866 

00 867 



/"" 



0869 P02AB 0020 



CS2007 NUM $20 



00869 
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( ) 



PTP003 



PAGF 27 



DATE! 10/20/75 



c 



c 



/ '\ 



0871 
872 
0873 
874 
0875 



^__> 



877 


P02AC 


0A07 


0878 


P02AD 


8 3*» 


0879 


P02AE 


0AF5 


0880 


P02AF 


63<^ 


0881 


P02BO 


0A07 


0882 


P0281 


5800 




P02B2 


014B 


0883 


P0283 


D8«*0 


0884 


P02B4 


C83F 


0885 


P02B5 


0101 


0886 


P02B6 


18F9 


0887 


P0 237 


E800 




P02B3 


01EB 


0888 


P02B9 


0A<»2 


0889 


P02BA 


03*tF 


0890 


P02BB 


024A 


0891 


P02BC 


6800 




P023D 


FE^O 


0892 


P023E 


A000 




P"02BF 


F750 


0893 


P02C0 


BOOO 




P02C1 


0401 


089<* 


P02C2 


0101 


0895 


P02C3 


1841 


0896 


P02C<* 


OA10 


0897 


P02C5 


582F 


0898 


P02C6 


18F0 



♦ *♦ **♦ ************************ * ******** ** t ********************* *****pj£ 2- 00 871 

* ' PTC2 00872 

• PROCESS END OF TEST REQUIREMENTS PTC2 00 873 

* PTC2 00874 
*************************.****.**** ******************+********* *******pjQ2 00 375 



CS40Q0 ENA 7 

LAQ A 
CSEN1 FNA -10 

STA* DELAYS 
CSEN* ENA 7 
RTJ PPT 

RAO* DELAYS 

LOA* DELAYS 

SAZ ' 1 

JMP* CSEN4 

CSEN2 LDQ PSTATUS 

ENA $k2 
OUT ERPF-»-l 
INP ERR13-*-l 
STA ERSTAT 

AND =N$F750 

EOR =N$401 

SAZ 1 
JMP* ERR15 
ENA $10 
RTJ* JUMP 
JMP* CSEN2 



SET ENO OF TAPE CODE 



LAST END OF TAPE PUNCH 
NO 



***00877 

00878 

00879 

00880 

•♦♦00881 

PTC2 00882 

00883 
00884 
00885 
00886 
00887 



STOP MOTION ANO CLEAR INT REQUEST 00888 

♦♦ER0F-10^» 00889 

♦♦ER13-14** 00890 

00891 

00892 

00893 



»*ER15-»»»» 



REPEAT CONDITIONS 
YES 



00894 
00895 
00896 
00897 
00898 



0900 P02C7 5800 
P02C8 0053 

0901 P02C9 080«» 

0902 P02CA 5402 

0903 P02C3 1803 

0904 P02CC 0304 

0905 P02CO 0000 



RTJ 3HSHM 

RAO* PASSCOUNT 
RTJ- (STOPX1 
JMP* CSEN1 
NUM $0304 
PASSCOUNT NUM Q 



CHANGE TO CHARACTER MODE 

END OF TEST STOP 
STOP ID 



PTC2 



00900 

00901 
00902 
00903 
00904 
00905 



0907 P02CE C000 
P02CF FF37 



CSEN1 



LDA 



=N-200 



00907 
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o 





PTP0Q3 




PAG 


IE 28 




0908 


P02D0 


680C 




STA» 


t 


CTEN?«-1 


0909 


P02D1 
P02O2 


C8 00 
F032 




LOA 




RETURN 


0910 


P02D3 


6806 




STA» 


CTEN1 


0911 


P02D<* 
P02D5 


COOO 
02OA P 


CSFN1A 


LOA 




=XCSEN1B 


0912 


P0236 
P02O7 


6800 
PD20 




ST A 




RETURN 


0913 


P0?O8 


5<»01 




RTJ- 




(CONTROL) 


091t» 


P02D9 


0000 


CTTN1 


NUM 







0915 


P02DA 


0802 


CSEN1B 


RAO« 


I 


CTEN2H 


0916 


P02D9 
P02DC 


COOO 
0000 


CTEN2 


LOA 




=N0 


0917 


P020O 


0101 




SAZ 




CSFNlC-*-l 


0918 


P020E 


18F5 




JMP» 


L 


CSEN1A 


0919 


P02OF 


C8F9 


CSFNIH 


LOA* 


CTENi 


0920 


P02E3 
P02E1 


6800 
F023 




ST A 




RETURN 


0921 


P02E2 


Ofl^O 




ENA 


St»0 




0922 


P02E3 


5811 




RTJ* 


JUMP 




0923 


P02E<» 


180? 




JMP* 


CSEN6 




092^ 


P02E5 


1805 




JMP* 


CSEN7 




0925 


P02E6 


5800 


CSFN6 


RTJ 


CHJMP6 




P02E7 


FD63 










0926 


P02E3 
P02E9 


1800 
FDBO 




JMP 


CNT1B 




0927 


P02EA 
P"02E3 


5800 
0030 


CSEN7 


PTJ 


CHCHM 




0928 


P02EC 
P02ED 


COOO 
0000 P 




LDA 




=XPTP003 


0929 


P02EE 


5«*03 




RTJ- 


<TSEXIT) 


0930 


P02EF 


5800 




PTJ 


CHJMP6 




P02FJ 


F05A 










0931 


P02F1 
P02F2 


1800 
F0A7 




JMP 




CNT1R 



DATE* 10/20/75 



HAS 10 MS BEEN DELAYED 
NO 
YES 



REPEAT TEST 

YES 

NO 

CHECK FOR RE-ENTRY OF PARAMETERS 



DONE RETURN TO SMM WITH BIAS IN A 
CHECK FOR RE-ENTRY OF PARAMETERS 

REPEAT TEST-FREQUECY NOT ZERO 



0933 P02F3 0000 DELAYS NUM 



c 



V 



00908 
00909 


r 


00910 
00911 




00912 


V^ 


00913 
0091«» 
00915 
00916 


c 


00917 
00918 
00919 
00920 


r 


00921 
00922 
00923 
0092*» 
00925 


r 


00926 


\ 


00927 




00928 


c 


00929 
00930 

00931 


C 


00933 


r 

\ 

V. 
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o 
o 

o 





PTPOO J 


0935 


P02F4 


0000 


0936 


P02F5 


6800 


0937 


P02F6 


A043 


0938 


P02F7 


0113 


0939 


P02F8 


0182 


09*f0 


P02F9 


D8FA 


09^1 


P02FA 


1CF9 


09<»2 


P02FB 


5820 


0943 


P02FC 


C8 6 


0944 


P02FD 


5406 


09^5 


P02FE 


1802 


0946 


P02FF 


03F4 


0947 


P0300 


5«53F 


0948 


P0301 


1CF2 



JUHP 



JUMP1 



PAGF 29 



NUM SO 
STA* JJMP2 
AND- SJ 
SAN 3 
SWS 2 
RAO* JUMP 
JMP* (JUHP) 
RTJ* CHCHM 
LOA* JUMP2 
RTJ- (JUMPX) 
JMP* J'JMPl 
RAO* JUMP 
RTJ* CHINM 
JMP* (JUMP) 



DATE* 10/20/75 



CHECK TO MAKE SURE TEST IS NOT IN INT MODE 

IS BIT SET IN STOP/JUMP WORO 
IF NO DO NOT GO TO SMM UNLESS THE SKIP SW 
IS SET MEANS OPERATER WANTS TO CHANGE 
THE STOP/JUMP WORO 



JUMP SWITCH SET 

YES 

NO 



00935 
00936 
00937 
00938 
00939 
00940 
00941 
00942 
0091*3 
00 944 
00945 
00946 
00947 
00948 



0950 P0302 0000 



JUMP2 



NUM SO 



00950 



0952 
0953 
0954 
0955 
0956 
0957 



******************¥**»**»**«********»*¥**********¥**«******** **»**♦■* pfc 2 00952 

* PTC2 00953 

* ERROR PROCESSING PTC2 00954 

* REPORT ERRORS F THROUGH 19 PTC2 00955 

* PTC2 00956 
*********#********♦♦*****.*.*****#**•* ************** ****»****»*******¥-»pTC2 00957 



c 



0959 


P010 3 


O0E9 P 


C1FR5 


ADC 


CTERS 






0960 


PQ30<* 


DCFE 


ERR 15 


RAO* 


(31ERS) 






0961 


P0305 


DCFO 


ERR14 


PAO* 


(C1ERS) 


IN 


REJECT 


0962 


P0306 


OCFC 


ERR 13 


"AO* 


CJIERS) 






963 


P0307 


DCF8 


ERR12 


RAO* 


(C1ERS) 


IN 


REJECT 


0964 


P0308 


PCFA 


ERR 11 


RAO* 


(C1ERS) 






0965 


P0309 


0CF9 


ERR10 


RAO* 


(31ERS) 


IN 


REJECT 


0966 


P030A 


DCF8 


ERRF 


PAO* 


(CIERS) 






0967 


P030B 


OAOE 




ENA 


«E 






0968 


P030G 
P030O 


5800 
FDDC 




RTJ 


ERRORS 






0969 


P030E 


18A8 




JMP* 


CSEN2 






0970 


P030F 


OCF3 


ERR17 


RAO* 


(C1ERS) 


IN 


REJECT 


0971 


P0310 


0CF2 


ERR15 


RAO* 


(C1ERS) 






0972 


^0311 


0A15 




ENA 


$15 






0973 


P0312 
P0313 


5800 
F0D6 




RTJ 


ERRORS 







00959 
00960 
00961 
00962 
00963 
00964 
00965 
00966 
00967 
00968 

00969 
00970 
00971 
00972 
00973 
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P) 





PTP003 




PAGF 30 


097k 


P031k 1B10 




JMP* 


CHCHME 


0975 


P0315 OCED 


ERR19 


PAO* 


CUERS) 


0976 


P0316 DCEC 


ERR13 


RAO* 


(C1ERS) 


0977 


P0317 0A17 




ENA 


$17 


097B 


P031H 5»00 
P0319 FDDO 




RTJ 


ERRORS 


0979 


P031A 1828 




JMP» 


CHINME 



DATFI 10/20/75 



IN REJECT 



O097«» 
00975 
00976 
00977 
00 978 

00979 



r 



C 
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n 



n 




PTP003 


\^j 


0981 








0982 








0983 






\^J 


0934 






o 
c 


0986 
0987 
0988 
0989 
0990 
0991 








0993 


PQ31B 


0000 


o 


099«t 


P031C 


C3G0 




P0310 


01*»8 




0995 


PQ31E 


0111 




0996 


P031F 


181C 


r~\ 


0997 


P0320 


COOO 




P0321 


033«» 




0998 


P0322 


68 






P0323 


FCE1 




0999 


P032<» 


E800 


O 




P0325 


017E 


1000 


P0326 


OA02 




1001 


P0327 


03E7 




1002 


P0328 


084<» 


O 


1003 


P0329 


6800 




P032A 


013A 




lOO** 


P0323 


C813 




1005 


P032C 


8800 


o 




P032O 


013A 


1006 


P0 32E 


0115 


■ 


1007 


P032F 


C800 






P0330 


0135 


o 


1008 


P0331 


680D 


1009 


P033? 


1800 




P0333 


OOOA 




1010 


P033<» 


COOO 






P0335 


OOOR 


P) 


1011 


P0336 


6800 


w 




P0337 


FCCO 




1012 


P0338 


C079 




1013 


P0339 


6800 


o 




P033A 


FCEO 


1014 


P0333 


COOO 






P033C 


0000 




1015 


P033D 


1CD0 


«* V 


1016 


P033C 


0000 



PASE 31 



0ATE1 10/20/75 



********************* ********** ********************** *♦*****♦**•*<►** *PTC 2- 

* PTC2 

* CHANGE TO CHARACTER MODE IF IN INT MOOE PTC2 

* PTC2 

* CHECK IF IN INTERRUPT MODE IF SO WILL 

* CLEAR THE INTERRUPT REQUEST AND THAN 

* WAIT UNTIL SHM PASS CONTROL BACK TO THE 

* PUNCH TEST BEFORE IT RETURN TO (CHCHM) 

* PTC2 

*************************************************************** *****pjQ2 



CHCHM NUM 

LDA INTMODE 

SAN 1 

JMP* CHCHM2 

LDA =XCHCHM1 

STA RETURN 

CHCHME LDQ PSTATUS 

ENA 2 

OUT ERR16-*-l 

CLR A 

STA OKTNT 

LDA* 3VINTM0 
ADD STATECH 

SAN CH3HMl-*-i 
LDA INTMODE 

STA* SVINTMO 
JMP PPT1A 

CHCHM1 LDA =XCHECK 

STA RETURN 

LDA- Biri«* 
STA COUNT1 

CHCHM? LDA =XPTP003 

JMP* (CHCHM) 
SVINTMO NUM 



1 = INT MODE, = CHAR MODE 

SKIP IF IN INT MOOE 
IN CHAR MODE, SO EXIT 



UPDATE RETURN ADDR FOR AFTER TRADEOFF 
GET ADDR OF PUNCH 



PTC2 
PTC 2 

PTC2 
PTC 2 
PTC2 

PTC2 

PTC2 



CLEAR INT REQUEST **ER16-17** 

CLEAR OK FOR INT SO THAT INTS GENERATED 
AFTER THIS TIME CAN BE CAUGHT AS ERRORS 



1 IF STATE CHANGE FROM CHAR TO INT MODE 

OOES THE TEST HAVE CONTROL 
NO 

1ST TIME EXIT INT STATE 
RETURN TO SMM VIA INT EXIT 

THE PUNCH TEST NOW HAS CONTROL 



SET INT WAIT LOOP COUNT 
IA TO A GEG 



PTC2 
PTC 2 



PTC2 
PTC 2 



GO ON 
SAVE INT MODE SWITCH- 1=INT MODE, 0=CHARPTC2 



00981 
00982 
00983 
0098V 



00986 
00987 
00988 
00989 
00990 
00991 



00993 
0099t» 

00995 
00996 
00997 

O0 998 

00999 

01000 
01001 
01002 
01003 

01004 
01005 

01006 
01007 

01008 
01009 

01010 

01011 

01012 
01013 

01014 

01015 
01016 
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n 



f 





PTP003 




PA 


iSE 32 


1018 


P033F 0000 


CHINH 


NUM 


SO 


1019 


P03«f0 CB00 
P03M 012«» 




LDA 


INTMOOE 


1020 


P03'»2 0111 




SAN 


1 


1021. 


P03«i3 1C00 
P03^ FFFA 




JMP 


(CHTNMI 


1022 


P03«»5 E800 
P03«»6 0150 


CHINME 


LDQ 


PSTATUS 


1023 


P03«»7 OfllU 




ENA 


*1*» 


102if 


PQ3t*H 0500 




UN 





1025 


P03V9 03CB 




OUT 


ERR18-*-l 


1026 


P03i»A 6800 
P03«»3 011C 




STA 


STATECH 


1027 


P03M3 1CF2 




JMP* 


1 (SHINM) 



DATEf 10/20/75 



CHANGE BACK TO INT MODE 

SKIP IF IN INT MOOE PTC2 

HERE TO EXIT IF IN CHAR MOOE P.TC2 

YES THAN RESELECTED INTERRUPTS 

ALSO SELECT ALARM INTERRUPT 

»*ER18-19»» 
GO SET UP CHAR BUT OONT PUNCH UNTIL 

INT OCCURS. ;.. . 



01018 
01019 

01020 
01021 

01022 

01023 
0102<» 
01025 
01026 

01027 



r 



r 
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PTP003 


PAGF 33 


1029 


P03<»D 


0000 


GENPATT NUM 





1030 


P03*fE 


Q1t*k 


CLR 


A 


1031 


P03tfF 


681E 


STA* 


SECTENDSW 


1032 


P0350 


E818 


LOO* 


WORD 


1033 


P0351 


C81A 


LDA* 


PPSW 


103*» 


P0352 


0106 


SAZ 


GfTN2-*-l 


1035 


P0353 


0FA1 


QLS 


1 


10 36 


P035<». 


0161 


SQP 


GENl-*-l 


1037 


P0355 


180C 


JMP* 


P D OUT 


10 38 


P0356 


03<»<f 


GEN1 CLR 


A 


1039 


P0357 


681«» 


STA* 


PPSW 


1QI*Q 


P0353 


E312 


LOQ* 


W3RD+2 


10*»1 


P0359 


0F21 


GEN2 QRS 


1 


10^2 


P035A 


08m 


TRQ 


A 


10*»3 


P035D 


A082 


AND- 


HFFOO 


lO^ 


P035C 


011«» 


SAN 


PPOUT-*-l 


10*»5 


P0350 


C80C 


LDA* 


WORO+1 


10*»6 


P035E 


68 QA 


STA* 


WORO 


10«»7 


P035F 


680C 


STA* 


PPSW 


10^8 


PQ363 


680D 


STA* 


SECTENOSW 


10^9 


P0361 


<»807 


PPOUT STQ* 


WORO 


1050 


P0362 


C80C 


LOA* 


COMPATEN 


1051 


P0363 


0101 


SAZ 


1 


1052 


P036«» 


0852 


TCQ 


Q 


1053 


P0365 


C807 


LDA* 


PPEXL 


105*t 


P0366 


08B«» 


LAQ 





1055 


P0367 


1CE5 


JMP* 


(GENPATT) 



OATEX 10/20/75 



GENERATE PATTERN FOR 8, 7, OR 5 LEVEL 
EXIT WITH PATTERN IN A 
SECTION END SWITCH 



PATTERN SWITCH 

LEFT PATTERN DONE 

YES 

LAST PATTERN + 1 

NO 

YES 



RIGHT PATTERN 



**NO SKIP TO GEN2 



COMPLEMENT PATTERN 
YES SECTION 2 AND 8 



EXIT WITH PATTERN IN A 



01029 
01030 
01031 
01032 
0L033 
0103«i 
01035 
01036 
01037 
01038 
01039 
010<*0 
010^1 
010<t2 
010<»3 
010<t<» 
010*»5 
010^6 
010«»7 
010<»8 
010<»9 
01050 
01051 
01052 
01053 
0105<» 
01055 



1057 P0368 7F7F 

1058 P0369 7F7F 

1059 P036A 3EFF 

1060 P036B FFFF 

1061 P036C OOFF 

1062 P0360 0000 

1063 P036E 0000 



WORO 


NUM S7F7F 
NUM *7F7F 
NUM S3EFF 






PPSW 


NUM -SO 






PPEXL 


NUM $FF 




LEVEL EXTRACT 


SECTENOSW NUM 





SECTION END SWITCH 


COMPATEN NUM 





COMPLEMENT PATTERN 



01057 
01058 
01059 
01060 
01061 
01062 
01063 



^ 





1065 






»♦ 








1066 


P036F 


7F7F 


ZZ8 


NUM 


S7F7F 


( ) 


1067 


P0370 


7EFF 




NUM 


$7EFF 




1068 


P0371 


7EFF 


ZZ7 


NUM 


S7EFF 




1069 


P0372 


3F7F 




NUM 


S3F7F 




1070 


P0373 


7BFF 


ZZ5 


NUM 


$7 OFF 


l^~ ■'' ■ 


1071 


P037«» 


OFDF 




NUM 


SOFOF 


L- ; 


1072 






** 








1073 


P0375 


FFOO 


PY8 


NUM 


SFFOO 



ZIGZAG PATTERN LEVEL GENERATE WORDS 

LEVEL 8 STORE IN WORO AND WORDfri 

STORE IN W0R0+2 
LEVEL 7 

LEVEL 5 

PYRAMID PATTERN LEVEL GENERATE WORDS 
LEVEL 8 



01065 
01066 
01067 
01068 
01069 
01070 
01071 
01072 
01073 



S'"\ 
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PTP003 



107tf P0376 MFE 

1075 P0377 FE00 

1076 P0378 20FE 

1077 P0379 FBOO 

1078 P037A 083E 



PY7 



PY5 



PAGE 3«f 


NUM 


$MFE 


NUM 


SFEOO 


NUM 


S20FE 


NUM 


S^BOO 


NUM 


*083E 



DATE* 10/20^75 

LEVEL 7 
LEVEL 5 



0107*» 
01075 
01076 
01077 
01078 



r 
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1080 


P0373 


0000 


GENOZ 


NUM 


$Q 


1081 


P037C 


084«« 




CLR 


A 


1032 


P0370 


68EF 




STA* 


SECTENOSW 


1083 


P0 3 7E 


C810 




LOA* 


GEN03 


108<f 


P037F 


0103 




SAZ 


GEN01-*-l 


1085 


P0380 


O80E 




RAO* 


GEN03 


1086 


P0181 


OAFF 




ENA 


-0 


1087 


P0382 


180A 




JMP* 


GENEX 


1088 


P 3 8 1 


C3 0C 


GEN01 


LOA* 


GtNO** 


1089 


P0384 


0115 




SAN 


G:N02-*-l 


1090 


P0385 


0AF5 




ENA 


-10 


1091 


P0386 


68E6 




STA* 


SECTENOSW 


1092 


P0337 


6307 




STA* 


GEN03 


1093 


P0 388 


OAFC 




ENA 


-3 


1094 


P0389 


6806 




STA* 


GEN04 


1095 


P038A 


O805 


GEN02 


RAO* 


GENO^ 


1096 


P0383 


OAOO 




ENA 


SO 


1097 


P038C 


A8DF 


GENFX 


ANO* 


PPEXL 


1098 


P038O 


ICED 




JMP* 


(GENOZ) 


1099 


P0 38E 


FFF5 


GEN03 


NUM 


-10 


1100 


P038F 


FFFC 


GENO!f 


NUM 


-3 



DATFt 10/20/75 



GENERATE ONES AND ZEROS PATTERN 

ONE CYCLE EQUAL 10 ONES ANO 3 ZEROS WORD 



SET END OF CYCLE SWITCH 



EXTRACT LEVELS WANTED 



01080 
01081 
01082 
01083 
01084 
01085 
01086 
01087 
01088 
01089 
01090 
01091 
01092 
01093 
0109«» 
01095 
01096 
01097 
01098 
01099 
01100 



O 



1102 


P0390 


0000 


GFNC9 


NUM 


$0 


1103 


P0391 


0844 




CL* 


A 


1104 


P0392 


630A 




STA* 


SECTENOSW 


1105 


P0393 


C«10 




LDA* 


GENC3 


1106 


P0394 


010<» 




SAZ 


GENCl-*-l 


1107 


P0395 


D80E 




RAO* 


GENC3 


1108 


P0396 
P0397 


C000 
00C9 




LDA 


= N?C9 


1109 


P0393 


1809 




JMP* 


GENCEX 


1110 


P0399 


C809 


GENC1 


LDA* 


GENC4 


1111 


P039A 


0114 




SAN 


GENC2-*-l 


1112 


P0 39 3 


0AF8 




ENA 


-7 


1113 


P039C 


6800 




STA* 


SECTENOSW 


111** 


P039D 


6806 




STA* 


GENC3 


1115 


P039E 


6806 




STA* 


GENC4 


1116 


P039F 


D805 


GENC2 


RAO* 


GENC4 


1117 


P03AQ 


0A36 




ENA 


$36 


1118 


P03A1 


A3CA 


GENCEX 


ANO* 


PPEXL 


1119 


P03A2 


ICED 




JMP* 


CGENC9) 


1120 


P03A3 


FFF8 


GENC3 


NUM 


-$7 


1121 


PQ3A*» 


FFF8 


GENC(» 


NUM 


-S7 



GENERATE C9 AND 36 PATTERN 

ONE CYCLE EQUAL 7 C9S AND 7 36S 



SET END OF CYCLE SWITCH 



EXTRACT LEVELS WANTED 



01102 
01103 
01104 
01105 
01106 
01107 
01108 

01109 
OHIO 
01111 
01112 
01113 
01114 
01115 
01116 
01117 
01118 
01119 
01120 
01121 



r 
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1123 


P03A5 


0000 


DELAY NUM 


JO 


1124 






* 




1125 






» 




1126 






* 




1127 






* 




1128 






* 




1129 






* 




1130 






* 




1131 


P0 3A6 
P03A7 


C800 
FCC4 


LDA 


INMONLY 


1132 


P03AS 
P0 3A9 


8300 
00OE 


ADD 


STATECH 


1133 


P03AA 


0101 


SAZ 


1 


113i» 


P03AD 


1CF9 


JMP* 


(DELAY) 


1135 


P03AC 


5344 


OELAYO P.TJ* 


MINUS 


1136 


P03AQ 


013A 


SAM 


DELAYl-*-l 


1137 


P03AE 
P03AF 


C800 
FC89 


LDA 


CNTWPO 


1138 


P03B0 


A076 


AND- 


CONSTH1 


1139 


P03B1 


0101 


SAZ 


1 


1140 


P03B2 


1CF2 


JMP* 


(DELAY! 


1141 


P03B3 
O03BI* 


C800 
FCB8 


LDA 


OMITOEL 


1142 


P03B5 


0101 


SAZ 


1 


1143 


P03B6 


1CEE 


JMP* 


(DELAY) 


1144 


P03B7 


181F 


JMP* 


OELAY2 


1145 


P03BR 
P03O9 


C300 
FC7F 


OELAY1 LDA 


CNTWRO 


1146 


P03DA 


BO 76 


EOR- 


CONSTH1 


1147 


P0338 
P039C 


6800 
FC7C 


STA 


CNTWRD 


1148 


P03BO 


AO 76 


ANO- 


CONSTH1 


1149 


P03OE 


0F4A 


ARS 


10 


1150 


P03BF 
P03C0 


6300 
00A5 


STA 


T.NTMOOE 


1151 


P03C1 
P03C2 


E800 
00E1 


LOQ 


PSTATUS 


1152 


P03C3 


0101 


SAZ 


1 


1153 


P03C4 


0910 


INA 


$10 


1154 


P03C5 


0902 


INA 


$2 


1155 


P03C6 


030A 


OUT 


ERR20-*-l 


1156 


P03C7 
P03C8 


C300 
009D 


LOA 


INTMODE 


1157 


P03C9 
P03CA 


6800 
0090 


STA 


STATECH 


1158 


P03C3 


0101 


SAZ 


1 


1159 


P03CC 


1C08 


JMP* 


(DELAY) 


1160 


P03CO 
P03CE 


1800 
3F 


JMP 


PPT1A 



DATE* 10/20/75 



THIS ROUTINE WILL GENERATE A RANDOM NUM. 
IF THE NUM IS NEG IT WILL COMPLEMENT BIT 11 
OF THE CONTROL WORD (INT MODE =1 DELAY =0 
ANO SELECTED THE INT IF 1, AND CLEAR THE 
INT REQUEST IF ZERO. 

THE DELAY IS A SAW TOOTH OELAY WITH A 
RANOOM HIGH SPEEO PUNCH WITHIN THE DELAY 



ALSO CHECK TO SEE IF CHANGING MODE TOO 

RUN TEST IN INT MOOE ONLY 
YES 



0800 
OELAY OR INT MODE (DELAY IS IN CHAR MODE) 
INT THAN EXIT 



OMIT DELAY IN CHAR MODE 
YES 



COMPLEMENT BIT 11 



0800 



0800 



1161 



REQUEST INT OR CLEAR INT REQUEST 

REQUEST ALARM INTERRUPT 
CLEAR INTS 
REQUEST INT **ER20-21»* 



NOW IS IT CHAR MODE 

NO 

YES RETURN TO SMM VIA INT EXIT ANO WAIT 

UNTILL THE PUNCH RECEIVES PROGRAM CONTROL 



01123 
01124 
01125 
01126 
01127 
01128 
01129 
01130 
01131 

01132 

01133 
01134 
01135 
01136 
01137 

01138 
01139 
01140 
01141 

01142 
01143 
01144 
01145 

01146 
01147 

01148 
01149 
01150 

01151 

01152 
01153 
01154 
01155 
01156 

01157 

01158 
01159 
01160 

01161 



/^ 



r 
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DATE! 10/20/75 



1163 P03CF 00E9 P C2ERS ADC CTFRS 



01163 



o 
o 
o 



^\ 



/"\ 



c 



1165 


P03O0 


DCFE 


ERR21 


RAO* 


(C2ERS) 


1166 


P0301 


DCFO 


ERP.20 


RAO* 


CS2ERS) 


1167 


P03D2 


0A19 




ENA 


£19 


1168 


P0303 
P0304 


5800 
F015 




RTJ 


ERRORS 


1169 


P03D5 


18E2 




JMP* 


DELAY1 



IN REJECT 



1171 


P0306 


C317 


OELAY2 


LDA* 


TIME 


1172 


P03O7 


0816 




RAO* 


TIME 


1173 


P03D3 


0138 




SAZ 


DELAY3-*-l 


1174 


P03D9 
P03OA 


8800 
FC60 




ADO 


OELAYA 


1175 


P03D3 


0131 




SAM 


1 


1176 


P03OC 


18F9 




JMP* 


0ELAY2 


1177 


P03D0 


5813 




RTJ* 


MINUS 


1178 


P03OE 


0121 




SAP 


1 


1179 


P03DF 


13CD 




JMP* 


DELAY0+1 


1180 


P03E9 


18F5 




JMP* 


0ELAY2 


1181 


P0 3E1 


C80O 


0FLAY3 


LDA* 


TIME+1 


1182 


P03E2 


880O 




ADO* 


TIME+2 


1183 


P03E3 


680A 




STA* 


TIME 


1184 


P03E4 


680A 




STA* 


TIME+1 


1185 


P03E5 
P03E6 


8300 
FC55 




ADO 


DELAYB 


1186 


P03E7 


01AO 




SOV 





1187 


P03E8 


0123 




SAP 


0"LAY4-*-l 


1188 


P03E9 


C806 




LDA* 


TIME+2 


1139 


P03EA 


6803 




STA* 


TIME 


1190 


P03E3 


6803 




STA* 


TIME+1 


1191 


P03EC 


1CB8 


DELAYS 


JMP* 


(DELAY) 


1192 


P03ED 


FFBF 


TIME 


NUM 


-S40 


1193 


P03EE 


FFDF 




NUM 


-no 


1194 


P03EF 


FFBF 




NUM 


-$<*Q 


1195 


P03F0 


0000 


MINUS 


NUM 


$0 


1196 


P03F1 
P0 3F2 


cooo 

O0AB 


MINI 


LOA 


= M$AB 


1197 


P03F3 
P03F1* 


3800 
FC48 




ADO 


DELAYC 


1198 


P03F5 


68FC 




STA* 


MIN1+1 


1199 


P03F6 


0131 




SAM 


1 


1200 


P03F7 


1CF8 




JMP* 


(MINUS) 


1201 


P03F8 


0F48 




ARS 


3 


1202 


P03F9 


A081 




AND- 


HOOF' 


1203 


P03FA 


68F7 




STA* 


MINIM 


1204 


P03FB 


080«» 




SET 


A 



COUNT UP TO ZERO 
ADO DELAY PARAMETERS 



CHANGE NEGATIVE NUMBER 



STILL POSITIVE ** YES SKIP DELAYS 
NO THAN RESET THE DELAYS 



EXIT AFTER DELAY 



RANDOM NUMBER GENERATER 



HILL GENERATE A NEGATIVE NUM EVERY 3 OR MO 



EXIT 



01165 
01166 
01167 
01168 

01169 



01171 
01172 
01173 
01174 

01175 
01176 
01177 
01178 
01179 
01180 
01181 
01182 
01183 
01184 
01185 

01186 
01187 
01188 
01189 
01190 
01191 
01192 
01193 
01194 
01195 
01196 

01197 

01198 
01199 
01200 
01201 
01202 
01203 
01204 
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DATE! 10/20/75 



1205 P03FC 1CF3 



JMP* fMINUSI 



EXIT 



01205 



r~ 
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DATE! 10/20/75 



1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 



v*****# 4V************************* *************************** **«***»pjQ2. 01207 

* PTC2 01208 

* PUNCH ORIVER PTC2 01209 

* PTC2 01210 

* PUNCH THE CHAR IN A ** AFTER 01211 

* ■ ' . INTERRUPT MODE OR CHAR MODE 01212 

* . A CHECK OF ALL STATUS BITS ** PUNCHS IN 01213 

* PTC2 01214 



1217 


P03FD 


0000 


PPT 


NUM 


1218 


P03FE 
P03FF 


6800 
00A5 




STA PCHAR 


1219 


PO^OQ 


0844 


PPT1C 


CLR A 


1220 


P0i»01 
P04Q2 


6800 
FF33 




STA SVINTMO 


1221 


P0403 


0804 




SET A 


1222 


P0404 


6860 




STA* OKINT 


1223 


P0405 


C860 




LDA* INTMOOE 


122** 


P0405 


0111 




SAN PPTBB 


1225 


P0^07 


182E 




JMP* PPT1 


1226 


PQ«*03 


C8 5F 


PPTBB 


LDA* STATECH 


1227 


P0409 


0103 




SAZ PPT1A 


1228 


P040A 


0844 




CLR A 


1229 


P0<»0B 


685C 




STA* STATECH 


1230 


P0*t03 


5401 




RTJ- (CONTRO 


1231 


POtfOD 


F85B 


PPT1A 


LOQ* INTEXVA 


1232 


POtiOt 


1C02 




JMP* (INTENTRY) 



ENTRY 

SET PUNCH CHARACTER 



CLEAR INT MODE SWITCH 



OK FOR NEXT INT TO OCCURE 

CHFCK MODE SWITCH 

SKIP IF IN INT MODE 

HERE IF CHAR MODE 

VERIFY THAT MODE HAS CHANGED - CHAR TO INTPTC2 

1=INT MODE* 0=CHAR MOOE 

RETURN TO SMM AND WAIT FOR NEXT INT 

INDICATE CHAR MODE 

L) 

YES 
RETURN TO SHM ANO WAIT FOR INTERRUPT 



PTC2 


01217 


PTC 2 


01218 




01219 


PTC2 


01220 


PTC2 


01221 


PTC2 


01222 


PTC2 


01223 


PTC2 


0122*1 


PTC2 


01225 


PTC2 


01226 


PTC2 


01227 


PTC2 


01228 


PTC2 


01229 




01230 




01231 




01232 



1234 
1235 
1236 
1237 
1238 



*** **************************************************************** *PTC2 01234 

* PTC2 01235 

* DRIVER INTERRUPT PROCESSOR PTC2 01236 

* PTC2 01237 

* ****** ****** ********* ************************* ********** ****** *****pjQ2 01238 



o 



( i 



1240 


P040F 


0000 


INTFLG 


NUM 





1241 


P0410 


0000 


INTENTRY 


NUM 





1242 


P0411 


4857 




STQ* 


INTEXVA 


1243 


P0412 


0844 


INTENO 


CLR 


A 


124«» 


P04H 
P0414 


E800 
008F 




LDQ 


PSTATUS 


1245 


P0415 


020F 




INP 


E3536-*-l 


1246 


P0416 


A06D 




ANO- 


CONSTf2 


1247 


P0417 


0101 




SA7 


INTENA-*-l 


1248 


P0418 


1819 




JMP* 


INTEN2 





01240 


INT ENTRY 


01241 




01242 




01243 




***01244 




01245 




01246 


DID THIS EQUIPMENT INTERRUPT 


01247 


YES 


01248 
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PAGE 


<»0 


12<»9 


PQ«fl9 


E8F5 


INTENA 


LDQ* 


INTFLG 


1250 


POMA 


0151 




SQN 


INTENB-*-l 


1251 


POMB 


1816 




JMP* 


INTEN2 


1252 


POMC 


C8F3 


INTENB 


LDA* 


INTENTRY 


1253 


POMO 
POME 


6600 
0000 




STAf 


0,0 


125«t 


POtflF 


0O01 




INQ 


1 


1255 


P0«»20 


tf803 




STQ» 


INTENH-1 


1256 


P0<*21 


E8i»7 




LOO* 


INTEXVA 


1257 


P0«»22 
P0^23 


1U00 
0000 


INTEN1 


JMP«- 






DATES 10/20/75 



NO 


012**9 


IS THIS ONLY STATION ON INT LINE 


01250 


YES 


01251 


NO 


01252 


PASS RETURN ADDRESS TO PTR 


01253 


INTERRUPT ROUTINE 


0125«» 




01255 


ALSO PASS Q ALONG 


01256 


GO TO INT PROCESSOR IN PTR TEST 


01257 



1259 
1260 
1261 
1262 
1263 



nnif»»f*»tf?»»»»»»»»»»»»**»**»»»n»»**i»*»*»i*»w*»*M*#»»»iM»i»*»»pj(;2 01259 

* PTC2 01260 

* REPLY - REJECT PROCESSOR PTC2 01261 

* PTC2 01262 
********************************************************************PTC2 01263 



1265 


P0<*2<* 


0901 




INA 


1 


1266 


P0'»25 


0901 


E3536 


INA 


1 


1267 


P0*»26 


093<» 




INA 


$3h 


1268 


P0*f27 
P0*f29 


8800 
FCt»5 




ADD 


SECTION 


1269 


P0«»29 


6805 




STA* 


ERR35A 


1270 


P0<»2A 


08M» 




CLR 


A 


1271 


P0i*23 


5*f02 




RTJ- 


(STOPX) 


1272 


P0<»2C 


13Qlt 




JMP* 


ERR35B 


1273 


P0^2O 


0308 




NUM 


$308 


127*f 


P0«»2E 


0000 


EPR35A 


NUM 





1275 


P0«»2F 


0«f30 P 




ADC 


ERR35B 


1276 


P0**30 


18E1 


ERR35B 


JMP* 


INTEND 



ERRORS 35 AND 36 



01265 
01266 
01267 
01268 

01269 
01270 
01271 
01272 
01273 
0127«» 
01275 
01276 



1278 
1279 
1280 
1281 
1282 



*********************************»**********************************PTC2 01278 

* PTC2 01279 

* DRIVER STATUS PROCESSOR PTC2 01280 

* PTC2 01281 
* ************************ ******** ************ ****** ************ *****PTC2 01282 



I 



128«t P0*»31 E837 INTEN2 LDQ* INTEXVA 0128«» 

1285 P0<»32 C832 LDA* OKINT 01285 

1286 P0if33 0111 SAN PPTl-*-l HAS CONTROL PASSED BACK TO SMH BEFORE INT 01286 
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1287 


P0434 


184F 




JMP* FRR2F 


1288 


P0«t35 


08<»4 


PPT1 


CLR A 


1289 


P0«»36 


E82D 




LDQ* FIRSTINT 


1290 


P0437 


0142 




SQ7 2 


1291 


P0438 


6829 




STA* FIRSTINT 


1292 


P0439 


1CC3 




JMP* (PPT) E 


1293 


P0 43A 


682A 




STA* OKINT 


1294 


P0439 


6820 




STA* WATT 


1295 


P043C 


E867 


PPT19 


LOO* PSTATUS 


1296 


P043O 


0250 




INP E3R24-*-l 


1297 


P043E 


6864 




STA* STATUS 


1298 


P043F 


A 71 




AND- BIT6 


1299 


P0<+«»0 


0101 




SAZ 1 


1300 


PQ4M 


5829 




RTJ* VALERR 


1301 


P0 442 


C860 




LDA* STATUS 


1302 


P04«*3 


B826 




EO?» R30P 


1303 






* 




1304 


P0444 


0103 




SAZ PPT2-*-l 


1305 


P0445 


B0 6E 




E'OR- BIT3 


1306 


P04«»o 


010C 




SAZ P?T«»-*-l 


1307 


P0447 


1863 




JMP* CH3T 


1308 


P04<»K 


OOFE 


PPT2 


INQ -1 


1309 


P04«*9 


C85B 


PPT3 


LOA* PCHAP. 


1310 


P0«»4A 


0307 




OUT PPT4A-*-l 


1311 


P044B 


0A1O 




ENA $10 


1312 


P044C 


A043 




AND- SJ 


1313 


P04<fD 


0103 




SAZ PPT3A-*-l 


1314 


P0 44E 
P04«»F 


5800 
FEA4 




RTJ JUMP 


1315 


P0450 


18EB 




JMP* PPT1B 


1316 


PQi+51 


1CAB 


PPT 3 A 


JMP* (OPT) 


1317 


P0452 


18 3A 


PPT«*A 


JMP* ERR26 


1318 


P0453 


C812 


PPT4 


LDA* INTMOOF 


1319 


P0«f5!» 


OliB 




SAN PPT5-*-l 


1320 


P0455 


C80C 




LDA* PPTRET 


1321 


P0456 
P0457 


6300 
F8A0 




STA RETURN 


1322 


P0458 


C077 




LDA- BIT12 


1323 


P0459 
P0<*5A 


6800 
FBCO 




STA COUNT1 S 


1324 


P045B 


5401 




RTJ- (CONTROL) 


1325 


P045C 


C806 


PPT<»3 


LOA* PPTCHK 


1326 


P045D 
PQ45E 


6800 
FBA6 




STA RETURN 


1327 


P045F 


18DG 




JMP* PPT18 


1328 


P0460 


182B 


PPT5 


JMP* ERR27 



DATEI 10/20/75 



NO ERPOR 



**ER2F-** 



FIRST INT AFTER START MOTION 
YES 

THAN OONT PUNCH THE CHARACTER 
XIT OF FIRST INT TO CSOOA 



PTC2 



INPUT STATUS 



♦•ER24-25** 



LOOK FOR VALIOATIO ERROR 
SKIP IF STATUS OK 

REPORT ERROR 

RESTORE STATUS 
ONLY READY, BUSY ,DATA AND POWER ON STA 
BITS SET 

NO 
WAS JUST THE DATA BIT MISSING 
NO THAN CHECK OTHER BITS 

YES 
NO- THEN CHECK OTHER BITS 
PUNCH CHARACTER 



REPEAT CONDITIONS 

YES 
EXIT CHAR HAS BEEN PUNCHED 
EXTERNAL REJECT 
PUNCH NOT READY TO PUNCH CHAR. 
IF IT IS IN INT MODE ERROR 
NO - CHAR. MODE 



TUS 



0008 



SET INT WAIT LOOP COUNT 



SMM WILL RETURN HERE 



PTC2 

PTC2 
PTC2 

PTC2 



01287 

01288 

01289 

01290 

01291 

01292 

01293 

01294 

***01295 

01296 

***01297 

***01298 

***01299 

***01300 

***01301 

01302 

01303 

01304 

01305 

01306 

01307 

01308 

***01309 

01310 

01311 

01312 

01313 

01314 

01315 
01316 
01317 
01318 
01319 
01320 
01321 

01322 
01323 

01324 
01325 
01326 



HAS PUNCH REJECTED OVER 10MS 



01327 
**ER27-**** 01328 



I ) 



1330 P0<*61 0<»5C P PPTRET 

1331 P0462 OOOB P PPTCHK 



AOC 
ADC 



PPT4B 
CHECK 



8IASED 
BIASED 



01330 
01331 



n 
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DATE: 10/20/75 



1332 P0463 FFFF FTRSTINT NUM -SO 



1333 


P046<f 


0000 


OKINT 


NUM 


SO 


133«» 


P0«f65 


0000 


INTMODE 


NUM 


$0 


1335 


P0«f66 


0000 


WAIT 


NUM 


$0 


1336 


P0467 


0000 


STATECH 


NUM 


$0 


1337 


P0<f68 


0000 


INTFXVA 


NUM 


so 


1338 


P0^69 


040B 


R80P 


NUM 


$Q<»08 


1339 






* 







OK FOR INT SW 
INT MODE SW 



SET = ON 
SET = ON 



STATE CHANGE FROM CHAR TO INT =ONE 

REAOY, BUSY* MORE DATA, POWER ON 

TAPE LOW, AND PROTECT MAY BE AODEO IN IF S 



01332 
01333 
01334 
01335 
01336 
01337 
01338 
01339 



c 

/ — ■-> 



13M 


P046A 


0000 


VALERR 


NUM 







IZkZ 


P0468 


««81i 




STQ» 


VALER<» 


SAVE Q 


13^3 


P046C 
P0460 


caoo 

FC00 




LOA 


SECTION 




13«»4 


P046E 


09<»1 




INA 


$kl 


FORM SSEE 


1345 


P046F 


6809 




STA* 


VALER1 




13«»6 


P0470 


C8F9 




LOA* 


VALERR 




13<f7 


P0471 


68 8 




STA* 


VALER2 


SET TTN ADOR 


13<*8 


P0«»72 


C830 




LOA* 


STATUS 




13«»9 


P0473 


6807 




STA* 


VALER3 


SET ACT STATUS 


1350 


P047<» 


08«f4 




CLR 


A 




1351 


P0475 


5402 




RTJ- 


(STOPX) 


REPRT ERROR *»1 


1352 


P0476 


180 7 




JMP* 


VALER5 




1353 


P0«f77 


0328 




NUM 


$0328 




135«» 


P0478 


nooo 


VALER1 


NUM 





SSEE 


1355 


P0«f79 


0000 


VALER2 


NUM 





RTN ADDR 


1356 


P0«f7A 


0000 


VALER3 


NUM 





ACT STATUS 


1357 


P047B 


0*»0B 




NUM 


$<fOB 


EXP STATUS 


1358 


P0«f7C 


0000 


VALERO 


NUM 





SAVE Q CELL 


1360 


P0^70 


E8FE 


VALER5 


LOO* 


VALEPlt 


RESTORE Q 


1361 


P047E 


0A01 




ENA 


1 




1362 


P0«f7F 


03FE 




OUT 


-1 


00 COR CONTROLLER 


1363 


P0«f80 


18C7 




JMP* 


PPT2 





♦♦♦01341 
♦♦♦01342 
♦♦♦01343 

♦♦♦01344 
♦♦♦01345 
♦••01346 
••♦01347 
•♦♦01348 
♦•♦013«i9 
•••01350 
•••01351 
♦••01352 
•••01353 
•••0135«» 
♦••01355 
♦♦•01356 
•♦♦01357 
♦♦♦01358 



♦♦♦01360 
♦♦♦01361 
♦♦♦01362 
•••01363 



1365 

1366 
1367 
1368 
1369 



*************** ********** ********** ******* ********* ****** ****** *****pTC2 01365 

* PTC2 01366 

* ERROR PROCESSOR PTC2 01367 

* ERRORS 2«» THROUGH 30 PTC2 01368 
** * ********************************************************** ****** *pfC2 01369 



c 



1371 P0481 0000 CTER NUM t9 

1372 P0£f82 D8FE ERR30 RAO* CTER 
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DATE: 10/20/75 



r~\ 



^ 



U 



i373 
1374 
1375 
1376 
1377 
1378 
1379 
1310 
1381 
1382 
1383 
138l» 
1385 
1386 
1387 

1388 
1389 
1390 
1391 

1392 
1393 
1394 
1395 

1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 

1406 

1407 
1408 
1409 

1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 



P0483 
P0484 
P0485 
P0486 
P0487 
P0488 
P0489 
P048A 
P0483 
P048C 
P048O 
P048E 
P048F 
P0490 
P0491 
P0492 
P0493 
P0494 
P0495 
P0496 
P0497 
P0498 
P0499 
P049A 
P049B 
P049C 
P049Q 
P049E 
P049F 
P04A0 
P04A1 
P04A2 
P04A3 
P04A4 
P04A5 
PQ4A6 
P04A7 
P04A8 
P04A9 
P04AA 
P0 4A3 
P04AC 
P04AO 
P04AE 
P04AF 
P0480 
P04B1 
P0432 
P0433 
P04B4 
P0435 
P0435 
P04B7 



08FD 
D8FC 
D8F8 
08FA 
D8F9 
D8F8 
08F7 
D8F6 
D8F5 
08F4 
D8F3 
08F2 
C8F1 
09 23 
8800 
FBDB 
6800 
0844 
68 EB 
C800 
FFCO 
0101 
0804 
680B 
5800 
FE7E 
5402 
1808 
0328 
0000 
0000 
0000 
0000 
0000 
0000 
5800 
FE97 
1800 
FF89 
C8BE 
09F7 
8800 
FFF4 
68 B7 
0822 
0A04 
08B4 
0111 
1313 
0A08 
8B4 
0116 
0A20 



ERR2F 

ERR20 

ERR2C 
ERR23 

ERR29 
ERR23 
ERR27 
ERR26 
ERR25 
ERR24 



RAO* 

RAO* 

RAO* 

RAO* 

RAO* 

RAO* 

RAO* 

RAO* 

RAO* 

RAO* 

RAO* 

RAO* 

LDA* 

INA 

AOO 



CTER 

CTER 

CTER 

CTER 

CTER 

CTER 

CTER 

CTER 

CTER 

CTER 

CTER 

CTER 

CTER 

$23 

SECTION 



STA* SECER 

CLR A 

STA* CTER 

LOA INTMOOE 

SAZ 1 
SET A 
STA* MODE 
RTJ CHCHM 

RTJ- (STOPX) 
JMP* ER1 
NUH S0328 

SECER NUM SO 

NUM 
STATUS NUM $0 
PSTATUS NUM SO 
PCHAR NUM SO 
MODE NUM $0 
ER1 RTJ CHINH 

JMP PPT1 

CHBT LOA* RBOP 
INA -38 
EOR STATUS 



CHBT1 



STA* 


WAIT 


TRA 


Q 


ENA 


4 


LAQ 


A 


SAN 


CHBTl-*-l 


JMP* 


CH3T8 


ENA 


$8 


LAQ 


A 


SAN 


CHBT2-*-i 


ENA 


S20 



STOP 10 



STATUS 

PUNCH CONNECTEO CODE FOR STATUS 
PUNCH CHAR 

SET = INT MOOE CLR = CHAR MOOE 
CHANGE BACK FROM CHAR TO INT MODE 

TO ORIVER TO BEGIN DATA OUPUT 

CLEAR THESE BITS FROM STATUS 
BUT NO BIT 3 



PTC2 



PTC2 



INT BIT SET 

NO 

YES 

DATA INTERRUPT MUST BE SET 



01373 
01174 
01375 
01176 
01377 
01378 
01379 
01380 
01381 
01382 
01383 
01384 
01385 
01386 
01387 

01388 
01389 
01390 
01391 

01392 
01393 
01394 
01395 

01396 
01397 
01398 
01399 
01400 
01401 
01402 
01403 
01404 
01405 

01406 

01407 
01408 
01409 

01410 
01411 
01412 
01413 
01414 
01415 
01416 
01417 
01418 
01419 



u 

n 
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1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
14<»2 
1443 

1444 
1445 
1446 
1447 
1448 

1W9 
1450 
1451 
1452 
1W3 
1454 
1W5 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 

1464 

1465 

1466 



P04B8 
P04B9 
P048A 
P043B 
P04BC 
P04BD 
P04BE 
P04BF 
P04C0 
P04C1 
P04C2 
P04C3 
P04C4 
P04C5 

P04C6 
P04C7 
P04CH 
P04C9 
P04CA 
P04CB 
P04CC 
P04CO 
P04CE 
P04CF 
P04O0 
P04D1 
P04D2 
P04D3 
P04Dt» 
P0405 
r>04P6 
P04D7 
P0408 
P04D9 
P04DA 
P04D3 
P04OC 
P040D 
P04OE 
P04DF 
P04EQ 
P04E1 
P04E2 
P04E3 
P04E4 
P04E5 
P04E6 
P04E7 
P04E8 
P04E9 
P04EA 
P04E3 



08B4 
0102 
0A08 
1805 
13CD 
C8A7 
0106 
0A0C 
0876 
48A4 
0113 
E8DF 
1883 
18C3 

C072 
8 34 
0111 
1811 
B89E 
68 90 
A 072 
0116 
COOO 
0549 
OCOB 
585B 
C072 
1856 
COOO 
0553 
OCOA 
5855 
C072 
1850 
0A20 
09B«» 
Olil 
1860 
C074 
08B4 
0111 
1831 
0A2A 
E8BE 
4800 
FC25 
E800 
FFBB 
5300 
FCOO 
5800 
FE2F 



CHBT1A 
CHBT2 



LAQ 
SAZ 
ENA 
JMP* 
JMP* 
LDA* 
SAZ 
ENA 
CHBTEST EAQ 
STQ* 
SAM 
LDQ* 
JMP* 
JMP* 



CHBT3 



CHBT8 



CHBT3B 



CHBT9 



CHBT15 



LDA- 

LAQ 

SAN 

JMP* 

EOR* 

STA* 

AND- 

SAN 

LDA 



CH9TlA-*-i 

SR 

CHBTEST 

ERR28 

INTHODE 

CHBT3-*-l 

SC 

a, a 

WATT 

CH3T8-*-l 
PSTATUS 
PPT2 

ERR29 

CONST+7 

A 

1 

CHBT9 

R9DP 

RBOP 

C0NST*7 

CHRT8B-*-l 

=XMESSPS 



ENQ MESPCE-MFSSPC+1 
RTJ* OUTNESS 
LDA- CONST+7 
JMP* CHBT6A 
LOA =XMESSPS 

ENQ MESPSE-MESSPS+1 
RTJ* OUTNESS 
LDA- CCWST + 7 
JMP* CH3T6A 
ENA S20 
LAQ A 
SAN 1 
JMP* CHBT12 
LDA- CONST+9 
LAQ A 
SAN 1 
JMP* CHBT10 
ENA $2A 
LOQ* STATUS 
STQ ERSTAT 

LDQ PSTATUS 

RTJ ERRORS 

RTJ CHCHM 



**ER28-**»* 



DATE! 10/20/75 



ALARM INT SET 

YES NO ERROR 

CLEAR INT BIT FROM STATUS 

NO ** ERROR 

YES 

INT MODE SELECTED 

YES **NO SKIP CHBT3 



ANY OTHER BITS SET 

PUNCH SHAR 

** ERROR INT BUT DID NOT SELECT IT** 

0080 

PROTECT BIT SET 

NO 

YES 

CLEAR OR SET BIT IN RBOP 



<~ 



0080 



PROTECT SW JUST SET 
NO JUST CLEARED 



0080 

CHECK FOR OTHER BITS IN STATUS 

SW JUST SET 



NO 

ALARM BIT SET 

NO 

YES 



0200 



ALARM IS SET, IS TAPE BREAK SET 

NO 

YES **ER2A-**** 

MOVE RIGHT STATUS TO ERROR ROUTINE 



OUTPUT ERROR 

CHANGE TO CHAR MODE AND GET BACK CONTROL 



01420 
01421 
01422 
01423 
01424 
01425 
01426 
01427 
01428 
01429 
01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01438 
01439 
01440 
01441 
01442 
01443 

01444 
01445 
01446 
01447 
01448 

01449 
01450 
01451 
01452 
01453 
01454 
01455 
01456 
01«i57 
01458 
01459 
01460 
01461 
01462 
01463 

01464 

01465 

01466 
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1467 


P04EC 
P04E3 


COOO 
04F3 P 




IDA 


=XCHBT16 


1468 


P04EE 
P04EF 


6800 
F815 




STA 


RETURN 


1469 


P04F0 


C077 




LOA- 


8IT12 


1470 


P04F1 
P04F2 


6800 
FB35 




STA 


COUNT 1 


1471 


P04F3 


E8AF 


CHBT16 


LDQ* 


PSTATUS 


1472 


P04F4 


021A 




INP 


ERR31-*-l 


1473 


P04F5 


A06B 




AND- 


CONST 


1474 


P04F6 


0111 




SAN 


1 


1475 


P04F7 


5401 




RTJ- 


(CONTROL) 


1476 


P04F3 


0A20 




ENA 


*20 


1477 


PQ4F9 


313 




OUT 


ERR33-*-l 


1478 


P04FA 


0210 




INP 


FRR35-*-l 


11*79 


P04F8 


A06E 




AND- 


CONST+3 


1480 


P04FC 


0111 




SAN 


1 


1*81 


P0 4FO 


5401 




RTJ- 


(CONTROLI 


1482 


P04FE 
P04FF 


COOO 
0008 P 




LOA 


=XCHFCK 


1483 


P0500 
P0501 


6800 

F803 




STA 


RETURN 


1484 


P0502 


CO 77 




LDA- 


BIT12 


1485 


P0503 
PQ504 


6800 
F023 




STA 


COUNT1 


I486 


P0505 
P0506 


5800 
FE38 




RTJ 


CHINM 


1487 


P0507 
P0508 


1800 
FEF7 




JMP 


PPT1C 


1458 


P0509 


00E9 P 


C3ERS 


ADC 


CTERS 


1489 


»050A 


OCFE 


ERR36 


RAO* 


I33ERS) 


1490 


PQ503 


OCFO 


ERR35 


RAO* 


(C3ERSI 


1491 


P050C 


OCFC 


ERR34 


RAO* 


(C3ERS) 


1492 


P050O 


DCF8 


EPR33 


RAO* 


C3ERS) 


1493 


P05 0E 


OCFA 


ERR32 


RAO* 


<C1ERS) 


1494 


P05QF 


DCF9 


ERR31 


RAO* 


(33ERS) 


1495 


P0510 


0A30 




ENA 


$30 


1496 


P0511 


18D1 




JMP* 


CHBT15 


1497 


P0512 


C075 


CHBT10 


LDA- 


CDNSTHO 


1498 


P0513 


08 04 




LAQ 


A 


1499 


P0514 


0102 




SAZ 


CHBT4-*-i 


1500 


P0515 
P0516 


1800 
FF6B 




JMP 


ERR30 


1501 


P0517 


C076 


CH8T4 


LDA- 


CONSTH1 


1502 


P0513 


08 34 




LAQ 


A 


1503 


P0519 


0112 




SAN 


CH3T5-*-l 


1504 


P0514 
P051B 


1800 
FF6B 




JMP 


ERR2B 


1505 


P051C 


0920 


CHBT5 


INA 


$20 


1506 


P051O 
P051E 


8800 
FF4A 




EOR 


RBOP 


1507 


P051F 
P0520 


6800 
FF48 




STA 


RE? DP 



RESET RTN AODR FOR AFTER TRADEOFF 

SET INT WAIT LOOP COUNT 

SMM WILL RETURN TO HERE 

**ER31- 
001 

WAIT UNTIL OPERATOR MAKES PUNCH READY 
NOT REAOY - RETURN TO SMM 
READY 
START MOTION **ER33- 

0008 

OATA READY TO OE PUNCHEO 
NO - RETURN TO SMM 



SET INT WAIT LOOP COUNT 



PTC2 


01467 


PTC2 


01468 


PTC2 


01469 


PTC2 


01470 




01471 


•32** 


01472 




01473 




01474 


PTC2 


01475 




01476 


•34** 


01477 




01478 




01479 




01480 


PTC2 


01481 




01482 



PTC2 

PTC2 
PTC2 



NO THEN IS POWER OFF 

POWER OFF 

YES ** ERROR 



0400 

**ER30-** 
0800 



PUNCH TAPE SUPPLY LOW BIT SET 

NO **ERROR 3UT ALARM WAS SET **ERR2B-* 

ADD IN ALARM BIT 



SET OR CLEAR BITS IN RBDP 



01483 

01484 
01485 

01486 

01407 

01488 
01489 
01490 
01491 
01492 
01493 
01494 
01495 
01496 
01497 
01498 
01499 
01500 

01501 
01502 
01503 
01504 

01505 
01506 

01507 



60220300 
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r\ 



c 





PTP003 




PA. 


IE 46 


1506 


P0521 


A076 




AND- 


CONSH-11 


1509 


P052? 


0104 




SA7 


CH3T6-*-l 


1510 


P0523 
P0524 


COOO 
055C P 




LDA 


=XMFSSTL 1 


1511 


P0525 


0C09 




ENQ 


MESTLE-MESSTL+1 


1512 


P0526 


5806 




RTJ* 


OUTMESS 


1513 


P0527 
P052H 


COOO 
0C20 


CHBT6 


LDA 


= ^0C20 


15i<* 


P0529 
P052A 


E800 
FF3D 


CHBT6A 


LDQ 


WAIT 


1515 


P052T 


1894 




JMP* 


C43TEST 1 


1516 


P052C 


0000 


OUTMtSS 


NUM 


SO 


1517 


P0520 


680E 




STA* 


AMESS 


1518 


P052E 


480E 




STQ* 


QMESS 


1519 


P052F 
P0530 


5800 
FDEA 




RTJ 


CHCHM 


1520 


P0531 


0AO1 


ME SSI 


ENA 


1 


1521 


P0532 


A049 




ANO- 


INFORM 


1522 


P0533 


0101 




SAZ 


1 


1523 


P0534 


18FC 




JMP* 


MESS1 


1524 


P0535 


C806 




LDA* 


AHESS 


1525 


P0535 


ER06 




LDQ* 


QMESS 


1526 


P0537 


5403 




f?TJ- 


(TYPE) 


1527 


P0533 
P0539 


5800 
FE05 




RTJ 


CHINM 


1528 


P053A 


1CF1 




JMP* 


(OUTMESS) 


1529 


P0539 


0000 


AMES3 


NUM 


JO 


1530 


P053C 


0000 


QMESS 


NUM 


SO 


1531 


P053!) 


0A01 


CHBT12 


ENA 


1 


1532 


P053E 


08B4 




LAQ 


A 


1533 


P053F 


0102 




SAZ 


CMRT13-*-l 


1534 


P0540 


0A2E 




ENA 


?2E I 


1535 


P0541 


18A1 




JMP* 


CHBT15 


1536 


P0542 


0A02 


CHBT13 


ENA 


2 


1537 


P0 543 


08B4 




LAQ 


A 


1538 


P0544 


0102 




SAZ 


CH3T14-*-l 


1539 


P0545 
P054& 


1800 
FF3F 




JMP 


E*R2C 


1540 


P05«f7 
P0543 


1800 
FF3C 


CHBU4 


JMP 


FPR2D Ci 


15*fl 


P0549 


8T10A 


MESSPC 


NUM 


sanoA 


1542 


P054A 
P0549 
P054C 
P054D 
P054E 
P054F 
P0550 
P0551 
P0552 


5G55 
4E43 
««520 
5052 
4F54 
4543 
5420 
4F46 
4620 




ALF 


9, PUNCH PROTECT 01 


15*»3 


P0553 


8D0A 


MESPCE 


NUM 


JSDOA 


1544 




0553 P 




EQU 


MESSPS(MESPCE) 


1545 


P0554 
P0555 


5055 
4E43 




ALF 


8, PUNCH PROTECTED 




50220300 E 









DATE* 10/20/75 



MESSAGE BEEN TYPE-OUT 
NO 



0800 



YES RETURN 



CHECK FOR OTHER STATUS BITS 
OUTPUT MESSAGE 



TELETYPE BUSY 

WAIT UNTILL ITS NOT BUSY 



TYPE/OUT 



READY 

NOT READY MUST GIVE A START MOTION 

AFTER ERROR OUTPUT **ER2E-**** 



BUSY BIT NOT SET 
YES 

COULD NOT FIND BIT 



**ER2C-**** 
***ERR2D-*» 



01508 
01509 
01510 

01511 
01512 
01513 

01514 

01515 
01516 
01517 
01518 
01519 

01520 
01521 
01522 
01523 
01524 
01525 
01526 
01527 

01528 
01529 
01530 
01531 
01532 
01533 
01534 
01535 
01536 
01537 
01538 
01539 

01540 

01541 
01542 



01543 
01544 
01545 
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r 



r 



( 



v.-- 



o 
o 



o 
o 



n 



n 





PTP003 




Oft 


SE >*7 




P0556 


«»320 










P0557 


5052 










P0558 


*tF5U 










P0559 


«*5<tS 










P055A 


5^5 










PQ553 


'♦'♦20 








15^6 


P055C 


anofl 


mespse 


NUM 


S310A 


I5k7 




055C P 




EO.U 


MESSTL<MFSPSF> 


15^8 


P0551 
P055E 
P055F 
P0560 
P0561 
P0562 
P0563 


5f)55 

'48 20 
5^1 
501+5 
20<+C 
**F57 




ALF 


7, PUNCH TAPF LOW 


15V9 


P056*» 


810A 


HESTLE 


NUM 


sbooa 



OATEt 10/20/75 



015«»6 
015«»7 
015«»8 



015*»9 



n 



O 
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,r" 



1551 
1552 
1553 
1551* 
1555 
1556 



**» **** *************************** »M»>**>f»»*ff***t«» **#*»***» »»**4fpYc 2 01551 

* PTC2 01552 

* INITIALIZE ROUTINE PTC2 01553 

* TYPE MESSAGES, INPUT PARAMETERS, SET SOME SWITCHES PTC2 0155«i 

* PTC2 01555 
*******»»**#**»»********»**»****»»#»*»*****»»*»»**»*»*»*»*****»*****PTQ2 01556 



■r- 



PTP003 



PA3E M 



DATE! 10/20/75 



^" 



1558 


P0565 


nooo 


INIT1 


NUM 


* 


1559 


P056& 
P0567 


cooo 

0000 P 




LOA 


=XPTP003 


1560 


P0568 


5<»0A 




RTJ- 


(CONV) 


1561 


P0569 


*»3«»8 




STQ* IA 


1562 


P056A 


68t»8 




STA* IAfl 


1563 


P0563 


E091 




LDO- 


TSACTV 


156^ 


P056C 


C291 




LOA- 


TSFREQ-1,0 


1565 


P0560 


5<»3A 




RTJ- 


CC3NVI 


1566 


P056E 


63<»9 




STA* 


HEAOE-1 


1567 


P056F 


OA01 


INIT13 


ENA 


1 


1568 


P0570 


A0«»9 




AND- 


- INFORM 


1569 


P0571 


0500 




UN 





1570 


P0572 


0102 




SA2 


2 


1571 


P0573 


0«»00 




EIN 





1572 


P057<» 


18FA 




JMP* 


INIT1B 


1573 


P0575 
P0576 


COOO 
0591* P 




LOA 


=XHEAO 


157*f 


P0577 


E31C 




LOO* HCOUNT 


1575 


P0573 


5«»08 




RTJ- 


(TYPE) 


1576 


P0579 


0A01 


INITIO 


ENA 


1 


1577 


P057A 


A0*t9 




AND- 


- INFORM 


1578 


P057B 


0500 




UN 





1579 


P057C 


0102 




SAZ 


2 


1580 


P057D 


0^00 




EIN 





1581 


P057E 


18FA 




JMP» 


INITIO 


1582 


P057F 
P0580 


CROO 
FA35 


INIT1 A 


LOA 


EQUIP 


1583 


P0581 
P0582 


6300 
FF20 




STA 


PSTATUS 


158tf 


P0583 
P053^ 


COOO 
0588 P 




LOA 


=XINIT2A 


1585 


P0535 
P0586 


6800 

PA7E 




STA 


RFTURN 


1586 


P0537 


5«*01 




RTJ- 


(CONTROL) 


1587 


P0588 
P0589 


5800 
FAA1 


INIT2A 


RTJ 


INPARA 


1588 


P058A 
P0589 


CROO 
FAB2 




LDA 


TNT11 


1589 


P058C 
P05RD 


6800 
FA79 




STA 


INT1 


1590 


P058E 
P058F 


COOO 
007«* P 




LDA 


=XCNTRL 


1591 


P0590 
P0591 


6800 
FA73 




STA 


RFTURN 




60220300 E 









CONVERN ROUTINE FOR TESTS IA 



CONVERT NUMBER OF PASSES 
TO MSG BUFFER 



SKIP IF NOT BUSY 

TELETYPE BUSY SW IS SET WIAT 
LOOP IF BUSY 



TYPEOUT INITIALIZE MSG 



WAIT FOR TTY BUSY TO DROP 



SET PUNCH CONNECTED COOE FOR STATUS 



SET RETURN ADOR FOR AFTER TRAOEOFF 

RETUNR TO SMM 
INPUT PARAMETERS 

MOVF INTERRUPT LINE ASSIGNMENT 

TO FRONT OF THE TEST 



SET RETURN ADOR 



PTC2 


01558 


PTC2 


01559 


PTC2 


01560 




01561 




01562 


PTC2 


01563 


PTC 2 


0156*» 


PTC2 


01565 


PTC2 


01566 




01567 




01568 




01569 


PTC2 


01570 




01571 


PTC2 


01572 




01573 




0157 k 


PTC 2 


01575 




01576 




01577 




01578 




01579 




01580 


PTC2 


01581 




01582 


PTC2 


01583 


PTC2 


0158«» 


PTC2 


01585 


PTC2 


01586 


PTC2 


01587 


PTC2 


01588 


PTC2 


01589 


PTC2 


01590 


PTC2 


01591 



f '- 



PAGE «*8 



r 






G 



PTP003 



PA3E «f9 



DATE* 10/20/75 



.. 



I \ 



r""\ 






1592 
1593 
1594 
1595 



1596 
1597 



1598 
1599 



1600 
1601 
1602 
1603 



160** 
1605 



P0 592 
P0591 
P059'-* 
P0595 
P0596 
P0597 
P059Q 
P0599 
P059A 
P059R 
P059C 
P059D 
P059F 
P059F 
P05A0 
P05A1 
P05A2 
P05A3 
P05A4 
P05A5 
P05A6 
P05A7 
PQ5A3 
P05A9 
P05AA 
P05A9 
P05AC 
P05AO 
P05AE 
P05AF 
P053O 
P0531 
P05B2 
P0583 
P05B4 
P0585 
P05B6 
P05B7 
P05B8 



5»»01 
00 25 
8Q0A 
2050 
5450 
30.30 
332C 
2031 
3732 
332F 
3737 
2050 
554E 
4348 
2054 
4553 
542E 
BO0A 
20 43 
5032 
462C 
2056 
i»552 
2E20 
332E 
3120 
3120 
8O0A 
2049 
4120 
3D 20 
0000 
0000 
2C20 
2046 
4320 
3O20 
2020 
8D0A 



RTJ- (CONTROL) RETURN TO SUM 
HCOUNT ADC HEADE-HEADU 
HEAD NUM *?8nOA 

ALF X, PTP003, 1723/77 PUNCH TEST.X 



PTC2 



01592 
01593 
01594 
01595 



NUM 

ALF 



S8O0A 

X, CP2F, VER. 3.1-1 X 



01596 
♦♦•01597 



IA 



NUM S3O0A 
ALF 3, IA = 



NUM $0 

NUM $0 
NUM J2C20 
ALF 4, FC 



HEAOE 



NUM 
END 



S890A 



01598 
01599 



01600 
01601 
01602 
01603 



01604 
01605 



r" 
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P) 



PTP003 PAGE 50 DATE! 10/20/75 



PGM= 05B9 ( 1<»65) COM = 0000 ( 0) DAT = 0000 C 0) 



60220300 E PAGE 50 



r' 



{ 



f~ 



l j 



,^> 
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DATEt 10/20/75 



MEQUIVALENCFS 
M OEF.LINE NAME VALUE 



r^ 



ry 



0000 
01^ 

0Hf5 



01^6 
011*7 
QllfB 
0Hf9 
0150 
0151 
0152 
0153 
015*f 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
016«f 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
017<f 
0175 
0176 
0177 
0178 
0179 
0180 
0181 



I 00FF 
CONTRO 0001 



STOPX 



EXIT 

NONDAT 

FCLRIN 

JUMPX 

GENRAN 

TYPEOU 

TTYBZY 

HEXASC 

OVRLAY 

RELPOS 

MAINL 

SETMAS 

STJP 

LASTVA 

LASTAO 

LDLCOR 

LDL1CO 

INFORM 

SMHCNT 

BITOO 

BITO 

8IT1 

3IT2 

BIT3 

3IT*f 

BIT5 

BIT6 

BIT7 

BIT8 

BIT9 

BIT10 

3IT11 

I3IT12 

BIT13 

BITl«f 

BIT15 



0002 



0003 

000«f 

0005 

0006 

0007 

0008' 

0009 

000A 

000B 

000C 

000O 

00«f2 

00«f3 

QQi*tt 

00*f5 

0Q(f7 

00^8 

00^9 

0056 

006B 

0060 

0060 

O06D 

006E 

006F 

0070 

0071 

0072 

0073 

007i» 

0075 

0076 

0077 

0078 

0079 

007A 



1000255) 
(0000011 

(000002) 



(000003) 
(00000<t) 
(000005) 
(000006) 
(000007) 
(000008) 
(000009) 

(ooodio) 

(000011) 
(000012) 
(000013) 
(000066) 
(000067) 
(000068) 
(000069) 
(000071) 
(000072) 
(000073) 
(000086) 
(000107) 
(000107) 
(000108) 
(000109) 
(000110) 
(000111) 
(000112) 
(000113) 
(00011(f) 
(000115) 
(000116) 
(000117) 
(000118) 
(000119) 
(00012 0) 
(000121) 
(000122) 



REFERENCED AT LINE NUMBER 



01tf5t 0238, 0«f«fl, 0913, 1230, 132*f 

i<»75, l«f81, 1586, 1592 

01<f6, 0250, 0286, 0<t9<», 059<», 0709 

0781, 0853, 0902, 1271, 1351, 1396 

01if7, 0210 

01«f8, 01*f9, 0372 

0207 

0150, 09<f<f 

0151, 020lf 

0152, 0153, 0206, 0208 

015«f, 0205, 0211 

0155 

0156 

0157 

0158 

0159, 0160, 0203, 0209, 02«fl 

0161 

0162 

0163 

016«f 

0165 

0166 

0167 

0168 

0169 

0170, 1305 

0171 

0172 

0173, 02«f7, 1298 

017<f 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 



• 1521, 1568, 1577 
, 0202 
» 0201 



, 0522, 1322, I«i69, i«f8if 

, 0527 

,1012 



60220300 



PAGE 51 



n 





PTP003 




PA3E 


52 


0182 


H0000 


007B 


(000123) 


, 0183 


0183 


HFFFF 


007C 


(00012(f) 


, 0184 


0184 


HOOOF 


0070 


(000125) 


t 0185 


0185 


HOOFO 


007E 


(000126) 


, 0186 


0186 


HOFOO 


007F 


(000127) 


t 0187 


0187 


HFOOO 


0080 


(000128) 


, 0188 


0188 


HOOFF 


0081 


(000129) 


t 0189 


0189 


HFFOO 


0082 


(000110) 


* 0190 


0190 


HFFFO 


00 8 3 


(000131) 


, 0191 


0191 


HOPTF 


0084 


(000132) 


, 0192 


0192 


HFFOF 


0085 


(000133) 


, 0193 


0193 


HFOFF 


0086 


(000134) 


t 0194 


0194 


H7FFF 


0087 


(000135) 


. 0195 


0195 


H7F00 


0088 


(000136) 


♦ 0196 


0196 


H0780 


0089 


(000137) 


, 0197 


0197 


H007F 


008A 


(000138) 


♦ 0198 


0198 


H2020 


008B 


(000139) 


, 0199 


0199 


TSACTV 


0091 


(000145) 


, 0200 


0200 


TSFREQ 


0092 


(000146) 


, 1564 


0201 


CONST 


0068 


(000107) 


* 0300 

* 0364 
, 0658 
t 0865 
i 1441 

* 1497 


0202 


SMMPAR 


0056 


(000086) 




0203 


SJPAR 


0043 


(000067) 




0204 


RANDOM 


0007 


(000007) 




0205 


CONVER 


OOOA 


(000010) 




0206 


MESSAG 


0008 


(000008) 




0207 


CLRNO 


0005 


(000005) 




0208 


TYPE 


0008 


(000008) 


, 1526 


0209 


SJ 


0043 


(000057) 


, 0486 


0210 


TSEXIT 


0003 


(000003) 


, 0929 


0211 


CONV 


OOOA 


(000010) 


♦ 1560 



OATEI 10/20/75 



, 0532, 0567, 0671, 0800, 1202 
, 1043 



0431 



,1563 

, 0305, 0311, 0332, 0350, 0354 

, 0402, 0487, 0536, 0554, 0560 

, 0664, 0697, 0753, 0793, 0824 

, 1138, 1146, 1148, 1246, 1435 

, 1446, 1451, 1457, 1473, 1479 

, 1501, 1508 
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DATEI 10/20/75 



^ 



o 



.y 



M S Y M 9 


L S 




M DEF.LINE NAME 


ADDRESS 


0213 


PTP003 


0000 


0215 


PORAOR 


0004 


0216 


RETURN 


0005 


0217 


EQUIP 


0006 


0218 


INT1 


0007 


0220 


START 


0008 


0221 


STHOP 


0009 


0232 


CHECK 


000B 


0239 


CHECK1 


0013 


0240 


CHECK2 


0015 


0246 


CHECK3 


001E 


0253 


CHECKS 


0026 


0255 


COUNT1 


0028 


0276 


INITIA 


0029 


0277 


INPARA 


002B 


0291 


CNTWRD 


0039 


0292 


REPEAT 


003A 


0293 


OELAYA 


003B 


0294 


OELAYB 


003C 


0295 


OELAYC 


003D 


0296 


INT11 


003E 


0298 


INPAR1 


003F 


0308 


INPAR2 


004A 


0310 


CHJMP6 


004B 


0315 


CHJP1 


051 


0316 


CHJP1A 


0052 


322 


CHJP2 


0059 


0324 


CHJP3 


005B 


0331 


CHJP4 


0063 


0339 


INMONL 


006C 


0340 


OMITOE 


0060 


03i»l 


SECTIO 


006E 


0343 


ERRE 


006F 


0344 


ERRO 


0070 


0349 


CNTRL 


0074 



REFERENCED AT LINE NUMBER 
, 0244, 0285, 0490, 0928, 1014, 1559 



0434, 0909, 0912, 0920, 0998, 1011 

1321, 1326, 1469, 1483, 1595, 1591 

0352, 0370, 1582 

0303, 0349, 0356, 0371, 1589 

0213 



0433, 

0233, 

0235 

02«»3 

0240, 

0234, 

1485 

0216 

0220, 

0215, 

0400, 

0657, 

1147 

0579, 

1174 

1185 

1197 

0302, 

0287 

0279, 

0314, 

0925, 

0313 

0336, 

0318 

0321 

0319, 

0280, 

0306, 



1010, 1331, 1482 
0251 



0245, 0248, 0254 

0237, 0432, 1013, 1323, 1470 



0307, 0315, 1587 

0278, 0283, 0299, 0304, 0331 

0403, 0521, 0535, 0553, 0604 

0719, 0791, 0863, 1137, 1145 

0684, 0767, 0839 



1588 



0401 
0337, 

0930 

0347 



0322 

0301, 

0754, 



0600, 0715, 0787, 0859 



0316, 1131 

0794, 0825, 0866, 1141 



0246, 0399, 0474, 0551, 0652, 0750 

0821, 1268, 1343, 1387 

0328 

0221, 1590 
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0356 


CNTRLi 


007C 


0358 


CNTRL2 


007E 


362 


CNTRL3 


0082 


0369 


CNTRL4 


008A 


0373 


REQINT 


0091 


0375 


CNTRL5 


0093 


0397 


CNT13 


009A 


0405 


CNT1 


00A2 


01*10 


CNT1A 


00A8 


0417 


CNT2 


0082 


01*29 


CNT2A 


00C1 


0443 


ERRC 


0007 


0444 


ERRB 


0008 


0445 


ERR A 


00O9 


0446 


ERP9 


OODA 


0447 


ERR8 


00OB 


0452 


ERR7 


00OF 


0453 


ERR6 


00E0 


0454 


ERR5 


00E1 


0455 


ERR4 


00E2 


0456 


ERR3 


00E3 


0457 


ERR2 


00E4 


0458 


ERRi 


00E5 


0470 


CTERS 


O0E9 



0«*71 


ERRORS 


OOEA 


0492 


OVER 


0103 


0497 


SECERR 


0109 


0498 


RETAOR 


010A 


0499 


ERSTAT 


010B 


0500 


EREQUI 


010C 


0502 


MOOE1 


010E 


0503 


ERROR1 


010F 


0512 


FREQSW 


0112 


0513 


CSOOA 


0113 


0515 


CSOOC 


0115 


0521 


CSOOO 


one 


0533 


CS00D1 


0129 


0535 


CSOOO 


012B 


0548 


CS100 


0137 


0560 


CS101 


0146 


0566 


CS102 


014D 


0568 


CS103 


0150 


0571 


CS104 


0154 


0573 


CS105 


0156 


0579 


C105A 


015D 


0582 


CS106 


0161 


0593 


CS107 


0170 


0597 


S107A 


0175 


0599 


CS103 


0176 
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• 0378, 0926* 0931 
, 0461 



0351 

0361 

0358 

0355 

0377, 0379 

0368 

037«* 

0416 

01*22 

0428, 0«*50 

0425 



0420 

0419 

0<*<*0 
0413 

0408 

0407 

0343, 

0447, 

0457, 

0959, 

0346 

0973 

0488 

0476 

0485 

0409 

0477 

0481 

0495 

0514 

0429 

0520 

0519 

0526 



V 






r~ 
v. 

r' 



, 0344, 0443, 0444, 0445, 0446 

, 0452, 0453, 0454, G455, 0456 

, 0458, 0472, 0473, 0475, 0483 

, 1163, 1488 

, 0449, 0460, 0484, 0504, 0968 

, 0978, 1168, 1465 



, 0489, 0491 

, 0421, 0891, 1463 



, 0517, 0518 



0531 



0635 
0556 
0562 
0559, 0565 

0578 

0603 

0587, 0592 

0591 

0550 

0595 



r~ 
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0606 


CS109 


0181 


0607 


CS10A 


0182 


0609 


RESTWQ 


0183 


0621 


LEVELS 


0192 


0622 


SPACER 


0193 



0623 



CYCLES 0194 



0625 


CS200 


0195 


0632 


CS201 


0199 


0637 


CS^OO 


019F 


0650 


CS401 


01A9 


066<t 


CS402 


01BA 


0670 


CSkOZ 


01C1 


0673 


CS«»0i» 


01C5 


0678 


CS405 


01CB 


068/* 


CS406 


01D2 


0687 


CS«t07 


01D6 


0698 


CS^08 


01E3 


0708 


CS«f09 


01F0 


0712 


CS40A 


01F5 


0714 


CS«*09 


01F6 


0722 


CS40C 


0201 


0723 


CS40D 


0202 


072*t 


CS40E 


0203 


0726 


CS800 


0204 


738 


CS100Q 


020E 


0749 


CS1001 


0212 


0761 


CS1002 


0223 


0767 


CS1003 


022C 


0770 


CS1094 


0231 


0734 


CS1005 


0246 


0786 


CS1006 


0247 


0797 


CS1007 


0256 


0799 


SETEXL 


0257 


0807 


SETEX1 


025F 


0810 


CS2000 


0262 


0820 


CS2001 


0266 


0833 


CS2002 


0278 


0839 


CS2003 


0281 


084? 


CS200«» 


0286 


0856 


CS2005 


029B 


0858 


CS2006 


029C 


0869 


CS2007 


02AB 


0877 


CS^OOO 


02AC 


0879 


CSEND 


02AE 


0881 


CSEN«t 


02B0 


0887 


CSEN2 


02B7 


0905 


PASSCO 


02CO 


0907 


CSEN1 


02CE 


0911 


CSEN1A 


0204 
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0552, 0605 

0548, 0573 

0570, 0588, 0619, 0675, 0703 

0569, 0611, 0615, 0674 

0572, 0575, 0576, 0677, 0680, 0681 

0759, 0763, 0764, 0832, 0835, 0836 

0581, 0589, 0590, 0686, 0704, 0705 

0769, 0776, 0777, 08<+l, 08<»8, 0849 

0539, 0543, 0606 



0628, 


0634 




0736 






0660 






0666 






0663, 


0669 




0683 






0718 






0702, 


0707 




0691, 


694, 


0696 


0706 






0653 






0710 






0654, 


0720 




0650, 


0678 




0656, 


0672, 


0695 


06«»0, 


0647, 


0722 


0729, 


0735 




0766 






0790 






775, 


0779 




0782 






0752, 


0761 




0760, 


0808, 


0830 


0802, 


0805 




0741, 


0795 




0838 






862 






0847, 


0851 




0854 






0823, 


0833 




0813, 


0867 




0886 






0898, 


0969 




0901 






0903 






0918 
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ogi^f 


CTEN1 


02D9 


0915 


CSEN13 


020A 


0916 


CTEN2 


0200 


0919 


CSEN1C 


02DF 


0925 


CSEN6 


02E6 


0927 


CSEH7 


02EA 


0933 


DELAYS 


02F3 


0935 


JUMP 


02F4 


947 


JUMP1 


0300 


0950 


JUMP2 


0302 


0959 


C1EP.S 


0303 


0960 


ERR15 


0304 


0961 


ERR14 


0305 


0962 


ERR 13 


0306 


0963 


ERR12 


0307 


0964 


ERR11 


0308 


0965 


ERR10 


0309 


0966 


ERRF 


030A 


0970 


ERR17 


030F 


0971 


ERR16 


0310 


0975 


ERR19 


0315 


976 


ERR18 


0316 


0993 


CHCHM 


031B 


0999 


CHCHHE 


0324 


1010 


CHCHM1 


0334 


1014 


CHCHM2 


Q33B 


1016 


SVINTM 


033E 


1018 


CHINM 


033F 


1022 


CHINME 


0345 


1029 


GENPAT 


0340 


1033 


GEN1 


0356 


1041 


GEN2 


0359 


1049 


PPOUT 


0361 


1057 


WORD 


0368 


1060 


PPSW 


036B 


1061 


PPEXL 


036C 


1062 


SECTEN 


0360 


1063 


COHPAT 


036E 


1066 


ZZ8 


036F 


1068 


ZZ7 


0371 


1070 


ZZ5 


0373 


1073 


PY8 


0375 
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0910, 0919 

0911 

0908, 0915 

0917 

0923 

0924 

0880, 0883, 0884 

0312, 0315, 0415, 0427, 0602, 0717 

0789, 0861, 0897, 0922, 0940, 0941 

0946, 0948, 1314 

0945 

0936, 0943 

0960, 0961, 0962, 0963, 0964, 0965 

0966, 0970, 0971, 0975, 0976 

0895 

0890 



, 0889 

, 1001 

, 1025 

, 0284, 0492, 0593, 0708, 0780, 0852 

, 0900, 0927* 0942, 1015, 1395, 1466 

, 1519 

, 0974 

, 0997, 1006 

, 0996 

• 1004, 1008, 1220 

, 0298, 0503, 0599, 0714, 0786, 0858 

, 0947, 1021, 1027, 1405, 1486, 1527 

, 0979 

, 0582, 0687, 1055 

, 1036 

, 1034 

, 1037, 1044 

, 0612, 0613, 0616, 1032, 1040, 1045 

, 1046, 1049 

, 0618, 1033, 1039, 1047 

, 0563, 0673, 0807, 1053, 1097, 1118 

, 0585, 0689, 0700, 0773, 0845, 1031 

, 1048, 1082, 1091, 1104, 1113 

, 0541, 0633, 0645, 0693, 0734, 1050 

, 0566 

, 0563 

, 0557 

, 0670 



r 



r 



r^ 
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1075 


PY7 


0377 


1077 


PY5 


0379 


1080 


GENOZ 


0378 


1088 


GENOl 


0383 


1095 


GEN02 


038A 


1097 


GENEX 


038C 


1099 


GEN03 


038E 


1100 


GEN04 


038F 


1102 


GENC9 


0390 


1110 


GENC1 


0399 


1116 


GENC2 


039F 


1118 


GENCEX 


03A1 


1120 


GENC3 


03A3 


1121 


GENC4 


03A4 


1123 


DELAY 


03A5 


1135 


OELAY0 


03AC 


1145 


DELAY1 


03B8 


1163 


C2ERS 


03CF 


1165 


ERR21 


03O0 


1166 


ERR20 


0301 


1171 


0ELAY2 


03D6 


1181 


OELAY3 


03E1 


1191 


DELAY** 


03EC 


1192 


TIME 


03E0 


1195 


MINUS 


03F0 


1196 


MINI 


03F1 


1217 


PPT 


03FO 


1219 


PPT1C 


0400 


1226 


PPTBB 


0408 


1231 


PPT1A 


0400 


1240 


INTFLG 


040F 


1241 


INTENT 


0410 


1243 


INTEN0 


0412 


1249 


INTENA 


0419 


1252 


INTEN8 


041C 


1257 


INTEN1 


0422 


1266 


E3536 


0425 


1274 


ER935A 


042E 


1276 


ERR353 


0430 


1284 


INTEN2 


0431 


1288 


PPT1 


0435 


1295 


PPT1B 


043C 


1308 


PPT2 


0448 


1309 


PPT 3 


0449 


1316 


PPT3A 


0451 


1317 


PPT4A 


0452 


1318 


PPT4 


0453 


1325 


PPT4Q 


045C 


1328 


PPT 5 


0460 
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0667 
0661 
0770 
1084 
1089 
1087 
0758 
0756 
0842 
1106 
1111 
1109 
0827 
0829 
0239 
1140 
1179 
1136 
1165 

1155 
1144 
1173 
1187 
1171 
1188 
1135 
1198 
0430 
0698 
1292 
1487 
1224 
1009 
0369 
0373 
1276 
1247 
1250 
1255 
1245 
1269 
1272 
1248 
1225 
1315 
1304 

1313 

1310 
1306 
1330 
1319 



1098 



, 1083, 1085, 1092 
, 1088, 1094, 1095 
, 1119 



♦ 1105, 1107, 1114 

, 1110, 1115, 1116 

, 0584, 0699, 0772, 0844, 1134 

, 1143, 1159, 1191 

, 1169 

, 1166 



, 1176, 1180 



, 1172, 1181, 1182, 1183, 1184 

, 1189, 1190 

, 1177, 1200, 1205 

, 1203 

, 0516, 0533, 0574, 0583, 0679 

, 0762, 0771, 0834, 0843, 0882 

, 1316 



, 1160, 1227 

, 1249 

, 1232, 1252 



, 1275 

, 1251 

, 1236, 1406 

, 1327 

, 1363, 1432 
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1330 


PPTRET 


0461 


1331 


PPTCHK 


0462 


1332 


FIRSTI 


0463 


1333 


OKINT 


0464 


1334 


INTMOn 


0465 


1335 


WAIT 


0466 


1336 


ST A TEC 


0467 


1337 


INTEXV 


0468 


1338 


RBOP 


0469 


1341 


VALERR 


046A 


1354 


VALER1 


0478 


1355 


VALER2 


0479 


1356 


VALER3 


047A 


1358 


VALERO 


047C 


1360 


VALER5 


0470 


1371 


CTER 


0481 


1372 


ERR30 


0482 


1373 


ERR2F 


0483 


1375 


ERR20 


0485 


1376 


ERR2C 


0486 


1377 


ERR20 


0487 


1379 


ERR29 


0489 


1380 


ERR28 


048A 


1381 


ERR27 


048B 


1382 


ERR26 


048C 


1383 


ERR25 


0480 


138** 


ERR24 


048E 


1399 


SECER 


04A0 


1401 


STATUS 


04A2 


1402 


PSTATU 


04 A 3 


140-3 


PCHAR 


04A4 


1404 


MODE 


04A5 


1405 


ER1 


04A6 


1407 


CHOT 


04AA 


1416 


CHBT1 


04B4 


li*Zi* 


CHBT1A 


04BC 


1425 


CH8T2 


04BO 


1428 


CHBTES 


04C0 


1433 


CHBT3 


04C5 


1435 


CHBT8 


04C6 


1448 


CH8T8B 


0404 


1453 


CHBT9 


04DA 


1462 


CH8T15 


04E3 


1471 


CHBT16 


04F3 


1488 


C3ERS 


0509 
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1320 
1325 
0437 
0436 
0232 
0994 
1318 
1294 
0330 
1229 
1231 
1302 



V. 



, 1289, 1291 

♦ 1003, 1222, 1285, 1293 

, 0317, 0333, 0398, 0435, 0478 

, 1007, 1019, 1150, 1156, 1223 

, 1391, 1425 

, 1410, 1429, 1514 

• 1005, 1026, 1132, 1157, 1226 

, 1242, 1256, 1284 

, 1407, 1439, 1440, 1506, 1507 



, 1373, 1374, 1375, 1376, 1377 
, 1379, 1380, 1381, 1382, 1383 
, 1385, 1390 



1300, 1346 

1345 

1347 

1349 

1342, 1360 

1352 

1372 

1378 

1384 

1500 

1287 

1540 

1539 

1504 

1433 

1424 

1328 

1317 

1296 

1388 

1297, 1301, 1348, 1409, 1462 

0324, 0405, 0417, 0438, 0887, 0999 

1022, 1151, 1244, 1295, 1431, 1464 



1471, 


1583 










1218, 


1309 










1394 












1397 












1307 












1414 












1421 












1418 












1423, 


1515 










1426 












1415, 


1430 










1442 












1438 












1496, 


1535 










1467 












1489, 


1490, 


1491, 


1492, 


1493, 


1494 
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■PASE 59 




DATEI 10 


1489 


ERR36 


050A 








1490 


ERR35 


050B 


, 1478 






1491 


ERR34 


050C 








1492 


ERR 33 


050D 


, 1477 






1493 


ERR32 


050E 








1494 


ERR31 


050F , 


1472 






1497 


CHBT10 


0512 


, 146 






1501 


CH3T4 


0517 


i 1499 






1505 


CHBT5 


051C 


, 1503 






1513 


CHBT6 


0527 


1509 






1514 


CH8T6A 


0529 i 


1447, 


1452 




1516 


OUTMES 


052C , 


1445, 


1450, 


1512, 1528 


1520 


MESS1 


0531 , 


, 1523 






1529 


AttESS 


053B 1 


> 1517, 


1524 




1530 


QHESS 


053C , 


, 1518, 


1525 




1531 


CH3T12 


053D 


, 1456 






1536 


CH8T13 


0542 1 


, 1533 






1540 


P.H9T14 


0547 


, 1533 






1541 


MESSPC 


0549 , 


, 1443, 


1444 




1543 


MESPCE 


0553 , 


. 144*», 


1544 




1544 


MESSPS 


0553 


, 1448, 


1449 




1546 


MESPSE 


055C , 


, 1449, 


1547 




1547 


MESSTL 


055C , 


> 1510, 


1511 




1549 


MFSTLE 


0564 


► 1511 






1559 


INIT1 


0565 


, 0276 






1567 


INIT13 


056F 


, 1572 






1576 


INITIO 


0579 


, 1581 






1582 


INITIA 


057F 








1587 


INIT2A 


0588 


, 1584 






1593 


HCOUNT 


0593 , 


, 1574 






1594 


HEAD 


0594 


» 1573, 


1593 




1600 


IA 


05B1 , 


r 1561, 


1562 




1604 


HEAOE 


05B8 1 


, 1566, 


1593 







o . 


1582 INITIA 
1587 INITZ4 

1593 HCOUNT 

1594 HEAD 
1600 IA 
1604 HEAOE 


o 




o 




o 




o 




o 
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*** ALPHABETICAL S * T F SYMBOLS •»• MMMH 



AMESS 


1529 


3IT0 


0166 


BITOO 


0165 


BIT1 


0167 


BIT10 


0176 


BIT11 


0177 


8IT12 


0178 


3IT13 


0179 


3IT14 


0180 


BIT15 


0181 


BIT2 


0168 


BIT3 


0169 


BIT4 


017n 


BIT5 


0171 


BIT6 


0172 


BIT7 


0173 


BITS 


0174 


9TT9 


0175 


C105A 


0579 


C1ERS 


0959 


C2ERS 


1163 


C3EPS 


1488 


CHBT 


1407 


CHBT1 


1416 


CHBT10 


1497 


CHBT12 


1531 


CHBT13 


1536 


CHBT14 


1540 


CHBT15 


1462 


CHBT16 


1471 


CHBT1A 


1424 


CH8T2 


1425 


CHBT3 


1433 


CHBT4 


1501 


CHBT5 


1505 


CHBT6 


1513 


CHBT6A 


1514 


CH3TB 


1435 


CH3T8B 


1448 


CHBT9 


1453 


CHBTES 


1423 


CHCHM 


0993 


CHGHit 


1010 


CHCHM2 


1014 


CHCHME 


0999 


CHECK 


2 32 


CHECK1 


0239 


CHECK2 


0240 


CHECK3 


0246 


CHECK4 


0253 


CHINM 


1018 


CHINME 


1022 


CHJMP6 


0310 


CHJP1 


0315 


CHJP1A 


0316 


CHJP2 


0322 


CHJP3 


0324 


CHJP!» 


0331 


CLRNO 


0207 


CNT1 


0405 


CNT1A 


0410 


CNT13 


0397 


CNT2 


0417 


CNT2A 


0429 


CNTRL 


0349 


CNTRL1 


0356 


CNTRL2 


0358 


CNTRL3 


0362 


CNTRL4 


0369 


CNTRL5 


0375 


CNTWRD 


0291 


COMPAT 


1063 


CONST 


0201 


CONTRO 


0144 


CONV 


0211 


CONVER 


0205 


COUNT1 


0255 


CS0 


0535 


CSOOA 


0513 


SSOOC 


0515 


CSO0O 


0521 


CS00O1 


1533 


CS100 


0548 


CS1000 


0738 


CS1O01 


0749 


CS1002 


0761 


CS1003 


0767 


CS1004 


0770 


CS1005 


0784 


CS1006 


0786 


CS1007 


0797 


CS101 


0560 


CS10? 


0566 


CS103 


0568 


CS104 


0571 


CS105 


0573 


CS106 


0582 


CS107 


0593 


CS108 


0599 


CS109 


0606 


CS10A 


0607 


CS200 


0625 


CS2000 


0810 


CS2001 


0820 


CS200? 


833 


CS2003 


0839 


CS2004 


0842 


CS2005 


0856 


CS2006 


0853 


CS2007 


0869 


CS201 


0612 


CS400 


0637 


CS4000 


0877 


CS401 


0650 


CS402 


664 


CS403 


0670 


CS404 


0673 


CS405 


0678 


CS406 


0684 


CS407 


0687 


CS408 


0698 


CS409 


0708 


CS40A 


0712 


CS40B 


0714 


CS40C 


0722 


CS40O 


0723 


CS40E 


0724 


CS300 


0726 


CSEN1 


0907 


CSEN1A 


0911 


CSEN1R 


0915 


CSEN1C 


0919 


CSEN2 , 


0887 


CSEN4 


0881 


CSEN6 


0925 


CSEN7 


0927 


CSEND 


0879 


CTEN1 


091«» 


CTEN2 


0916 


CTER 


1371 


CTERS 


0'-f70 


CYCLES 


0623 


DELAY 


1123 


DELAYO 


1135 


DELAY1 


1145 


0ELAY2 


1171 


DELAY3 


1181 


DELAY4 


1191 


DELAYA 


0293 


DELAYS 


0294 


DELAYC 


0295 


DELAYS 


0933 


E3536 


1266 


EQUIP 


0217 


ER1 


1405 


EREQUI 


0500 


ERR1 


0458 


ERR10 


0965 


ERR11 


0964 


ERR12 


963 


ERR13 


0962 


ERR14 


0961 


ERR15 


0960 


ERR16 


0971 


ERR17 


970 


ERR18 


0976 


ERR19 


0975 


ERR2 


0457 


ERR20 


1166 


ERR21 


1165 


ERR24 


138«* 


ERR25 


1383 


ERR26 


1382 


ERR27 


1381 


ERR28 


1330 


ERR29 


1379 


ERR29 


1377 


ERR2C 


1376 
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